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fortran error messages 
syntax error 

mysslng operator or punctuation 
conflicting common and/or equivalence 
missing right parenthesis 
entry stmt illegal in main pgm or block data 
missing end statement 
arithmetic expression required 
logical expression required 
too many left parentheses 

TOO MANY RIGHT PARENTHESES 

formal parameter illegal in 
formal parameter illegal in 




COMMON 
EQUIVALENCE 



THIS STATEMENT ILLEGAL IN BLOCK DaTA SUBPROGRAM 

uifo array overflow 
improper do nest 

D L ABEL P RE VI Qu 3 L Y E F I NED 

unrecognized statement type 

illeg_al do statement 

format "statement must have label 

undefined label 

Multiple definition 

illegal identifier" class" in This context 

unpaired quotes in format 

n0t_en0ush_subscripts 

too many su¥5c~rtpt5~ " " 

function or subroutine previously 
formal parameter multiply defined 

TCLTSaT usrurTrawixTST - " " " ~ 

Number of parameters inconsistent 
Cannot branch to format statement 

SO" BRTJUTT Nir " OR "FUNCTltTO" NOT TJEF TNE 
IOENTIFIFR ALREADY GIVEN TYPE 



DEFINED 

IN HEADING 



IN PR0ORAW 



00 600 000 
00001000 

00001010 
OTJWIOTl 
00001012 
00001013 
06WI0T4 

00001015 
00001016 
00001017 
00001018 

00001019 
00001010. 



"OO00T900 
00002000 
00003000 
00004000 
00005000 
00006000 
00007000 
00008000 
00009000 
00010000 
00011000 
0WJ2000 
00013000 
00014000 
00015000 

00016000 
000 17000 

00018000 
00019000 
00020000 
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00021000 
00022000 
00023000 
O0O24W0 T 
00025000 T 
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O0D2TOO0" 
00028000 
000 29000 
00030000 
00031000 
00032000 
"00033000" 
00034000 
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illegal format syntax 

in-correct use of file 

inconsistent use of identifier 

array idfntifier expected 

expression value required 

illegal file card syntax 

Illegal control element 

dfclaratibn must precede first reference 

inconsistent use of label as parameter 

NO. OF params. disagrees with prev« reference 

illegal use of formal parameter 

error in hollerith literal character count 

illegal actual parameter 

TnO many segments In source program 

too many prt assignments in source program 

last block declaration had less than 1024 words 

illegal i/o list element 

lfft side must be simple or subscripted variable 

variable expected 

illegal use of .or, 

illegal use of .and. 

illegal use of .not. 

illegal use of relational operator 
illegal mixed types 
illegal expression structure 
illegal parameter 

RfCORD BLOCK GREATER THAN 1023 

tno many optional file5 

file cards must precede source deck 

btnary write statement has no list 

undefined format number 

illegal fxponeNt in constant 

illegal constant in data statement 

main program missing 

PARAMETER MUST BE ARRAY IDENTIFIER 



EXPRESSION 

LABEL 

FUNCTION IDENTIFIER 

FUNCTION OR SUBROUTINE 

SUBROUTINE IDENTIFIER 

ARRAY IDENTIFIER OR EXPRESSION 



ID 



parameter must be 

parameter must be 

parameter must be 

parameter must be 

parameter must be 

parameter must be 

arithmetic - logical conflict on store 

ARRAYID must be subscripted in this context 

m o r e t h a n n ie m a in pr 6 r a m 

only common elements permitted 

too many files 

format or namelist too long 

parameter must be array identifier 



FORMAL 
FORMAL 

formal 
formal 

formal 
do or 



parameter 
parameter 
parameter 
parameter 
implied do 



must be 

MUST BE 

MUST BE 

MUST BE 

INDEX MUST 
ILLEGAL COMPLEX CONSTANT 
ILLEGAL MIXED TYPE STORE 

constant exceeds hardware limits 
parameter type conflicts with previous 



simple variable 
function identifier 
subroutine identifier 
function or subroutine 
be integer or real 



USE 



90 03 50 00 
00036000 
00037000 
00038000 
00039000 
00040000 
00641000 
00042000 
00043000 
00044000 
00045000 

00046000 
00047000 
0004 8 000 
00049000 
00050000 
00051 666 
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000 6 0000 
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00080000 
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00083066 
"00084006" 
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06686660 
66687666 
66688666 
00089000 
66690666 
66691660 
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CO MEL 

CPMPL 

TnO M 
VaRIA 
ARRAY 

comma 

ARRAY 

only 
mtssi 

SuBSC 
ARRAY 

CHMMO 

this 
rfal 

ARRAY 
RFPU 

InENT 
LfFT 

Illeg 
right 
state 
Slash 
Entry 
array 

InTEG 

COMMA 
5lASH 
FoR MA 

End o 

!0 ST 

COMMA 

StRTn 
mtssi 
illeg 

TOO M 
TOO M 
ASTER 

COMMA 

Data 

TOO M 
DFClM 

UnSPE 
UmSPE 

illeg 

UnSPE 

dfcim 
illeg 

UmDEF 

mult i 

TOO M 

stmt 
illeg 
unRec 
rftur 

FORMA 

LABEL 
NON-S 



Hf»ffiiH8ll itbiMt !HElIJW ent 

ANY FORMATS REFERENCED BUT NOT YET FOUND 
BLE ARRAY BOUND MUST BE FORMAL VARIABLE 

BOUND MUST HAVE INTEGER OR REAL TYPE 

OR RIGHT PARENTHESIS EXPECTED 

ALREADY GIVEN BOUNDS 
FORMAL ARRAYS MAY BE GIVEN VARIABLE BOUNDS 
NG LEFT PARENTHESIS IN IMPLIED 00 
RIPT MUST BE INTEGER OR REAL 

SIZE CANNOT EXCEED 32767 WORDS 
N OR EQUIV BLOCK CANNOT EXCEED 32767 WORDS 
STATEMENT ILLEGAL IN LOGICAL IF 
OR INTEGER TYPE REQUIRED 

BOUND INFORMATION REQUIRED 
CEMFNT OPERATOR EXPECTED 
IFIFR EXPECTED 
PARENTHESIS EXPECTED 
AL FORMAL PARAMETER 

PARENTHESIS EXPECTED 
MENT NUMBER EXPECTED 

EXPECTED 

STATEMENT CANNOT START PROGRAM UNIT 

MUST BE DIMENSIONED PRIOR TO EQUIV STMT 



ER CONSTANT EXPECTED 

EXPECTED 

OR END OF STATEMENT EXPECTED 
T* ARRAY OR WAMELIST EXPECTED 

F STATEMENT EXPECTED 

ATEMENT WITH NAMELIST CANNOT HAVE 10 LIST 

OR ENO OF STATEMENT EXPECTED 
6 TOO LONG 

NG QUOTE AT END OF STRING 
AL ARRAY BOUND 
ANY HANGING" BRANCHES 
ANY COMMON OR EQUIVALENCE ELEMENTS 
ISK EXPECTED 

"OR SLASHEXPECTEO 

SET TOO LARGE 

ANY ENTRY STATEMENTS IN THIS SUBPROGRAM 

AL WIDTHEXCEEDS FIELD WIDTH 

CIFIED FIELD WIDTH 

CIFIED SCALE FACTOR 

AL FORMAT CHARACTER 

CIFIED DECIMAL FIELD 

AL FIELD ILLEGAL FOR THIS SPECIFIER 

AL LABEL 

ineo namelist 

ply defined action labels 

any "nested do statements 

function id and expression disagree in type 

al use of statement function 

0gni2ed construct 

n* stop or call exit required in subprogram 

t number used previously as label 

usfd "previously as format number 
tanoard return requires label parameters 



00092000 T 0000 
00093000 T 0000 






00094000 T 0000 




00095000 T 0000 




00096000 f 0000 




00097000 T 0000 




00096000 T 0000 




00099000 "T 0000 




00100000 T oooo 




00101000 T oooo 




00102300 T OOOO 




00103000 T OOOO 




00104000 T OOOO 




t>0 1 05000 7 oaoo 




00106000 T 0000 




00107000 T OOOO 




00108000 T OflOO 




00109000 T OOOO 




00110000 T OOOO 




00 11 1000 T OOOO 




00112000 T OOOO 




00113000 T OOOO 




00114000 T OOOO 




00115000 T OOOO 




00116000 T OOOO 




00117000 T OOOO 




00118000 T OOOO 




00119000 T OOOO 




001213000 "t OOOO 




00121000 T OOOO 




00122000 T OOOO 




00123000 T OOOO 




00124000 T OOOO 




00125000 T OOOO 




001260013 T OOOO 




00127000 T OOOO 




00128000 T OOOO 




00129000 T OOOO 




00130000 T OOOO 




00131000 T OOOO 




00T32W0 T XJOOO 




00133000 T OOOO 




00134000 T OOOO 




00133-000 T OOOO 




00136000 T OOOO 




00137000 T OOOO 




00138000 f OOOO 




00139000 T OOOO 




00140000 T OOOO 




00141000 f OOOO 




00142000 T OOOO 




00143000 T OOOO 




00141001 T OOOO 




00143002 T OOOO 




00143003 T OOOO 




00143004 T 0006 




00143005 T OOOO 
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DnUBLF OR COMPLEX REQUIRES EVEN OFFSET 
FnRMAL PARAMETER ILLEGAL IN DATA STATEMENT 

Tno many local variables in source program 
a sfreefprm source line must have < 67 cols 
a hol/string under sfreeform must be on one line 
this construct is illegal in tss fortran 
illegal file card parameter value 

RFTURN IN MAIN PROGRAM NOT ALLOWED 

NON-POSITIVE SUBSCRIPTS ARE ILLEGAL 

NON-IDENTIFIER USEO FOR NAME OF LIBRARY ROUTINE 

HYPHEN EXPECTED 

SEQUENCE NUMBER EXPECTED 

ToO MANY RECURSIVE CALLS ON LIBRARY ROUTINES 

ASTERISK NOT ALLOWED IN REA'O" STATEMENT 

ASTERISK ONLY ALLOWED IN FREE FIELD OUTPUT 
TOO MANY *-ED LIST ELEMENTS IN OUTPUT 

hol or quotes String greater t~Han i"f characters fTN expression 
plus not allowed in this format phrase 

K NOT ALLOWED In THIS FORMAT PHRASE 

$ not allowed in this format phrase 

intrinsics-named funct must have previous external reference. 

data stmt common elem must be in blk data subprm 

variable cannot be a formal parameter or In common 

current subprogram id expected 

subprogram* external* or array id expected 

REPEAT* WIDTH/AND DECIMAL PARTS MUST BE LESS THAN ^q^ 

REPEAT PART MUST BE EMPTY OR >0 AND < 4091 

IS USED PRIOR TO USE IN DATSTMT 

CONTAINS TOO MANY CHARACTERS, " 

8 EXPECTED 

4 EXPECTED 

4" 0¥"B'"'fxPECtED " '" "'" """ 

An ALPHABETIC LETTER CA*B>C,.,,,Z) is REQUIREO 

sfcond range letter must be greater than first 
implicit must be first statement tn program" unit 
rfal/intfger/logical/complEx/ooublEprecision req 
illegal use of asterisk for run-time editing 

Mil. PROGRAM "UNIT TgR'THfS END' STATE MF NT ' ' ' 



In subprgmivarbl 

SYNTAffCAL TOKEN 

Integer value of 
integer value of 
Integer value "Of 



— ^ 



00143006 
0014 3007 

00143008 
00143009 
00141010 
00143011 
00143012 
00143013 
00143014 
00143015 
00143016 
00143017 
0014 3018 
00141019 
00143020 
00143021 
00143022 
00143024 
00143025 
0014 3026 
00143027 
00143028 
00143029 
00143030 
00143031 
001430 32 
00143033 
001.430_3_4 
00143035 
00143036 
00143037 
00143018 
00143039 
0014 3040 
00143041 
00143042 
00143043 
0014 3044 



DECLARED 
DECLARED 



BEGIN 

NTEGER ERRORCTJ COMMENT MUST BE FIRST 
NTEGER savetime; COMMENT MUST BE 2 ND 
NTEGER "CARDCWNTTE5TI'S['ATE"i"8E"0ERWCf""J'""' 
NTEGER SWARYCT; 
EAL TWODPRTX; 

ihiTialsegnot 

NEXT* FNEXf* NAME* NUMjYPE* 
A* B* I* J* P* T* TS* H 

RftJ * STAflT COMPILE TIME 

expvalue* expresult* expllnk; 
sp^ink, funvar; 
Real b^tipRtfDAtA'3f«t#bATAi.iNk#biTAskP"i 

BOOLEAN SCANENTER i % TRUE IFF SCAN JUST DID 
DEFINE NUMINTMl* 

8 3 " " 

*l% NUMTNTM1 IS THE NUMBER OF INTRINSICS MINUS 



variablei 
variable; 



Real 

eal 

Real 

REAL 

EAL 

REAL 



AN ENTER ON AN 10. 



i; FOR EACH NEW INTRINSIC 



0014 3999 
00144000 
START OF SEGMENT 
00145000 
00146000 
00147000 
00147500 
00148000 
OOlISWO 
00150000 
00151000 
OOlSlMO 
00153000 
01550 00 
00155100' 
00155U0 
00155210 
00155211 
00155212 
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X WHICH IS ADDED* ADD \ TC THE VALUE ON SEQ# 00155211, 

DEFINE MAXEL»15#J 

REAL ARRAY FNTRYL INK CO I MAXEL ] i 

REAL ELx; 

ALPHA FnEW, NNew; 

REAL LABELMOMJ 

INTEGER LOCALS, PARMS#PRTS,FLAGRQUTlNECOUNTER t 
REAL LlMlT, VOIDTSEQJ 

REAL IDlNFO, TYPE* NSeG; 

REAL FX1» FX2, FX3# Nxi# NX2» NX3J 

INTEGER LENGTH, LOWERBOUND, GROuPPRTJ 

alpha eovid. intid* realid ; 

integer root* adr) 

integer lastmooe i %%% « 1 for *cardj « 2 for stape. 

boolean errortog»xpreviqus listed record. 

eostog,xeno of stmt toggle. 

codetogfxllst cooe generateo.. 

tapetog*xmerge tape input, 

eods#xend of declrstmts, reset bt ends, 

filet0g»xpr0cessing file cards, 

debugtog'xto list out entering and exiting procedures, 

DESCREQ,XDESCRIPT0R required. 

XREF/XTO CREATE XREF OF PROGRAM, 

SAVETOC,;XVARlOUS BOOLEANS, 



DEFINE 



LIBTAPF 
SAVEDEbUGTOG 
SAVECODETOG 
SAVEPRTTOG 

savelisto-g - 

VOIOTOG 

datastmtflag 

F2T0U " — ■ 

CHECKTOG 

LISTOG 

XISTXTpTOS 

seqtog 
seqerrors 

TTHFTOg 

prtog 

NEWTPTOG 

'SI NO LET 06 

SEGOVFLAG 
FIRSTCALl 
RETURNFOUND 
ENDSEGTOG 

LOGIFTOG 

NOTdPlO '"" 

DATATOG 
FREEFTOG 
SEGPTOG 
GLOBALNAME 

namfDesc 

LOCaXnaME 

tsseditog 
unprinted 

DC INPUT 

SEGSW 



SAVET0G.C47ll3# 
SAVETOiS. C 461 il# 

SAVET0G.C45»13# 
SAVET0G.t44»l3# 
SAVETtrGiT43inf 

SAVET0Q.C42«11# 
SAVETOG,(41»l3# 

"SAvrTUBTPJxjTrrf 

SAVET0G.C39I1]# 
SAVETOG,C38U3# 
SArVETUG "". ivn ITf 
SAVET0G,C36I13# 

SAVETOG.C35U3* 
SAVrf 0G.T34 1 IT* 
SAVETOG.C33«l3# 
SAVET0G.C32I13# 
SAVEf6G.t3lll3# 
SAVETOG.C30U3# 
SAVET0G A E29I13# 
SAVETOG.CJeiTTii 
SAVETOG.C27I13I 
SAVET0G.C26I13# 

«viTw;T25-iir# 

SAVET06.t2<HU# 
SAVETOG.C23I13* 
"5 AVE TOG. [22*111 
SAVET0G.C2U13# 
SAVET0G.C20»13# 

SAVETOG.Cl8«13# 
SAVETOG.tl7H3# 
TA VET OG.T 16113 #" 
SAVET0G.C15I13# 



XUSE TO SAVE NEW WHILE INCLUDE. 
XSAVE DEBUGTOG "WHILE IN S INCLUDE. 
XSAVE CODETOG WHILE IN SINCLUDE. 
XSAVE PRTOG WHILE IN UNCLUOE. 
XS"AVE XTSTITG "WHTtE~lHt JIWCLUOE, 
XTO VOID CARDS OR TAPE 
XWHILE IN DATA STMTS. 
XAUDR REL TOT*?. 
XSEQ # CHECK. 
XTO LIST OUTPUT, 

rro x m~ LTBRKRT output; 

XTO RESEO INPUTS, 

XIF SEQUENCE ERRORS. 

XTO XI ST "WRIPUr -TNFtT" O^CT. 

XTO LIST STORAGE MAP, 

XCREATENEW SYMBOLIC TAPE. 

XfOTlST OUTFUT SINGLE" SPACED." 

XSEGMENT OVERFLOW, 

XTO LIST COMPILER HEADING. 



X RlTWN 7cTLX~Prn rsTOF " FOTJN D , 
XEND OF SEGMENT. 
.* P M C XSSING .J-06_I_CAL_IF STMT, 

XWHILE IN DATA STMTS, 
XFREE FIELD INPUT, 

x"Dont~fagT~aftew"15ubfr"gm " " ~ 

xto write all identifiers. 

xif globalname or localname true, 

XTO W^ITrWTDXNTTFTEir, 

XTSSEDIT, 

XTO LIST CARD'FALSE IF LISTED. 

fTF~USTN6 T35"FTrR7F*N,- — 

XTO MAINTAIN LINEDICT/LINESEG , 



00155213 
00156000 
00157000 
00158000 
00159000 
00160000 
00161000 
OO1610T0 

00162000 
00163000 
00164000 
00165000 
00166000 
00166100 
00167000 
00168000 
00161200 
00168400 
00168500 
00168600 
00169000 
00169020 
00169030 
00169050 
00169053 
00169054 
00169055 
00169056 
001 «T 9 03 7 
00169038 
00169039 
00169060 
00169061 

00169062 

00T69G63 
00169064 

00169065 
~00"1 890^6 

00169067 

001 6906 8 

6"0169"06~9 

00169070 

00169071 

00T6?0Tr 

00169073 

00169074 

03T690T5~ 

00169076 

00169077 

UDT69"078"~ 

00169079 

00169080 

~OOT6W8T 
00169082 
00169083 
00169084 " 
00169085 
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uooy 
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OOOl 
"OOOl" 
OOOl 



TSSMES.TOG 
WARNED 

SEGSWFTXED 

REMFIX£D 
REMOTETOG 

RANOOMTOG 
VOIDTTOG 
DOLIST 
HOLTOG 

listptog 
pxref 
lastline 
xglobals 

N TAP TOG 
SEENADOUB 

ENDSAVTOGDEF**; 
ARRAY SSNMCOUS3 ; 



SAVETOG.CUli3#*lTSSMESC£-RRMESl. _ _ 

SAVET0g.[13»1]#>XIF TSSEDIT WAS EVER EVOKED. 

SAVETOG.tl2«l3*#XlF SEGSW IS NOT TO BE ALTERED. 
SAVETOG.tU'l3#*XlF REMOTETOG ISNT TO BE ALTERED. 
SAVETdG.tlO»l3##XPRlNT 4 READ STMTS « REMOTE. 
SAVETOG.t 9*13##XIF EXPR USED FOR RANDOM I/O, 
SAVETOG.C 8»13##XT0 VOID TAPE RECORDS ONLY, 
SAVETOG.t 7tl3#>XLlST DOLLAR CARDS. 
SAVETOG.t 6»13##XlNPUT IN HOLLERITH* 
SAVETOG.t 5»13#»XLIST PATCHES ONLY. 

SAvrfOGvr 41 n#»xTo list xret or firtjwam, 

SAVETOG.t 3»l3#»XT0 DETR TO SKIP XREF, 
SAVETOG.t 2»l3##XT0 LET XREF KNOW OF DOING GLOBAL 
S AVEfOG .T 1 1 J ] #V1T0 CLOSI W WT APE IT " EVER 0"PEN"EF " 
SAVETOG.t40U3#»XARRAYDEC WONT BE USING THIS 

XWHILE WE FIX DP COMMON ARRAY SZ 




rNlTIALNCR; 



X THESE WORDS ARE USED FOR TEMP STORAGE AND STORING 

X PERMANENT FLAGGED DATA. 
DEFINE LASTSEQ«SSNM[0]## LASTERR»SSNM[ 1 3#, LINKLIST.SSNM t2J "# ; 
DEFINE VOIDSEQ-SSNMC33 # ; 

ALPHA ARRAY ERRORBUFF,PRlNTBUFF 1 1 14 3 ) 
ARRAY lMLINElNTt01353 i 

DEFINE yRBUFF ■ 150#* XRBUFFDIV3*50 *} 
ARRAY XRRYtO«XRBUFF-l3 ; 

INTEGER SE0BASF,SEQINCR; 

INTEGER SCN,LABL>NEXTSCN ,NEXTCARD; 

integer savecarO; x to save nextcarP while in $ include 

integer result* insERTdePTh; 

real includf; x contains "include*' 

real derugaor i 

alpha acro* chro, 

iALPHA AcR» NCR; 
SAVE ARRAY TlPEt0t633 i 

Real lastnext ; 

alpha nfxtacc* nextacc2; 

alpha blanks; 

ALPHA XtA; 

alpha array EDnccot7» o«i273; comment holds code emitted; 

alpha array holdidcoi23; 

real nxavil,strtseg; 

alpha array wopcoi 1393 1 % holds name and code of word mode operators 

save alpha array db,tb*cb to 193* 

CRDt6«H3; 

alpha array xreo»323; integer xri; 
save array accum* exaccum[oi2o3 ; 
real accumst8p. exaccumsfop "> 
REAL dblOw; 

Real... max; . 

V ALPHA AcRlf CHri; 

alpha array PERiODwoRDto«i03; 

REAL ARRAY MAPfO»73J 

REAL n, F2; 

INTEGER Cl» C2; 

DEFINE _ 

RSP»14 #> RSPl»l5 *, RWPs 2 9 *» 

RSH»41 *> RSHl*42 ## RWS»fl3 *) 



Q 01.69.0.86 
00169087 

00169088 
_0pl6_9089 

00169090 
00169091 
00169092 
00169093 
00169094 
00169095 

aoi69xms 

00169097 
00169098 

00169100 
00169102 
00169199 
00169200 
00169201 
00169210 
00169220 
00169300 
00169310 
00169320 
00169330 

00170000 
00174000 

00174100 
00174200 
00174300 
00174310 

00173000 
00176000 
001 7650 
00176502 
00177000 
00178000 
00179000 
00180000 
00181000 
00182000 
00183000 
00184000 
00185000 
00185100 

00186000 
01861 00 
00187000 
001 88000 
00189000 
00190000 
00191000 



T 
T 

T 
T 
T 
T 

T 
t 
T 
T 



00192000 
00193000 
00194000 



OQQl 

0001 
0001 

OOOi 

00 01 
0001 
0001 
oooi 
0001 
0001 

000 1 

0001 

0001 
woi 
0001 
0001 
0001 
0001 

0003 

0003 

0003 
0003 

0005 
0007 
0007 

0010 

0010 
0010 
00 10 
0010 
0010 

SOTO 
0010 
0010 

0012 
0012 
0012 

Wi"2" 

0012 

0014 
0016 
0016 
001_7 
0020 
0021 
0023 
0025 
0025 
0025 
0025 
0025 
0027 



0039 
0029 
0029 



00194020 
00194040 



0029 
0029 



H 



RESlENGTHLP#LPGL0BALC0«RSP3, 
RESlENGTH CoTRSHJ ; 

USED IN EXPR ONLY 



ALPHA ARRAY RESERVEOWORDSIPCOIRWPJ* 
RESERVEDWORDS [OIRWS3* 

SAVE REAL ARRAY PR* OPST £01253; X 

DEFINE PARMLINK « LSTT#; 

ALPHA luFF# eilFL/ SYMBOL) 

INTEGER TV, * INDEX INTO INFO FOR PRT OF LIST NAMES 

SAVESUBS* X MAX NUMBER OF SUBSCRIPTS FOR NAMELIST 
NAME I NO) X INDEX INTO NAMLlSt TdEnIFTERS ARRAY 
ARRAY NAMLlSTtO»256i; X ARRAY TO STOKE NAMELIST IDENTIFIERS 
ALPHA LISTio; 

REAL ARRAY BDPRTCbt203J REAL BOX* 
DEFINE MAXSTRING « 49#; 
ALPHA ARRAY STRINGARRAY CO t MAXSTRING]! 

R E A L St R I NG SI Z F i X N U M B E R OF W R D S I N S T R IN G 

DEFINE lSTMAX * 256*i 
REAL ARRAY LSTT* ISTP[ USTMAXl ; 
INTEGER LST IfLStSiLSTA; 

DEFINE MAXOPFILES » 63*$ BIGGESTFILEN8 • 99#; 
ARRAY FT LEI NFOt 01 3, 0» MAXOPFILES 3! 
DEFINE X SOME FILE STUFF 
SLOWV * 2*» 

1«* 

£1183*/ 

Cl»13*» 

[2I23#, 

[415 3*, 

1#> 
[1*8]#, 

C9i39]#» 



IDENTIFIERS 



FASTV * 

SenSpoeUnF* 

SENSF* 
SPDF * 

eunf" '■" 
fpbversion* 



fpbversf 

dk are asz 
endfil0ff«#; 
integer maxfilfs; 

ARRAY TFNtOl 13737 
DEFINE lBRANCH * 50*; 

real array branchescollbranch]; 
integer inxfil/fileaRrayPrt; 

DEFINE MAXC0M«l5 * i 

INTEGER 5UPERMAXC0MJ XXX SUPERMAXCOM 

alpha array C6M[0rMAXCo"M,ot i"27T > 

REAL NEyTCOM! 

ALPHA ARRAY lNFOtO«31, 0*1273; 



REAL LAX» BRANCHX) 



128XCMAXC0M+1), 



REAL ARySZ; 
ALPHA ARRAY 
REAL EXPT1, 
DEFINE' IR 



EXTRAlNF0t0i3l, 0tl27j; 
EXPT2* EXPT3J 



[36153** I'C"""T4"ii7J'#; 

real infa,infb,infc; 

integer nextinfo* globalnextinfo* nextextra! 

Integer NExtssy 

DEFINE SHX*l89#* GHX-61*; 

REAL ARRAY STACKMEAOtO I SHX 3 ; 

REAL ARRAY" GLOBALSTAirKHEAU[0iGRX7r" 

REAL LA, DT, TEST; 

ALPHA LaDR1.LA0R2»LADR3,LADR4»LADR5,LINFA; 

DEFINE MAXb0T«?0*r ~ 

ALPHA ARRAY 0OTEST* QOLABCOt MAXD0S3 ; 

ALPHA LTSTARTi 

alpha array iNtrotNuffiNTWiTNUMtNTMi+23 ; 

ALPHA ARRAY TYPES£0»6], KLASSC0IH3; 



INTEGER LINDX'LADDR; 



00195000 T 0029 




00 1 950 TO T 0033 




00196000 T 0036 




00197000 T 0038 




00198000 T 0038 




00199100 T 0038 




00199120 T 0038 




00199130 t 0W8 




00199200 T 0038 




00199300 T 0040 




00200000 f ^040 




00201000 T 0041 




00202000 T 0041 




00IO1OW T 0043 


" " " " 


00204000 T 0043 




00205000 T 0043 




O6TOSOOO t W4 5 




00207000 T 0045 




00208000 T 0045 




00208100 T 0047 





00208110 T 0047 




00208120 T 0047 




00206130 T 0047 




00208135 T 0047 




00208140 T 0047 




00208150 t 0047 




00208160 T 0047 




00208170 T 0047 




00208180 f OO47 




00208490 T 0047 




00209000 T 0047 




00210000 T 0047 




00211000 T 0049 




00212000 T 0049 




00211000 T 005i 




00214000 T 0051 




00214100 T 0051 




W2T50T0-0 T "0031 




00216000 T 0053 




00217000 T 0053 




00218000 t 0055 




00219000 T 0055 




00220000 T 0057 




0OZ2TOO0 T "0057 





00222000 T 0057 




00223000 T 0057 




UO2T4O0ITT 00T7 


„ 


00225000 T 0057 




00226000 T 0057 




<X022TO0O"T ^058 ~" 


" " - " 


00228000 T 0060 




00229000 T 0060 




00~2 sitro 00 T ooto 




00231000 T 0060 




00232000 T 0062 




00233000 t 0T82 




00234000 T 0066 





» * 



m 



INTEGER OP, PRECf If' IT^ 
DEFINE nUMPSlZE »l27 #J 

ARRAY FNNHOintOJDUMPSlZEJ; 

integer fnnindex*fnnprt; 
define maxnbhang « 30#j 

ARRAY FNNHANGtOlMAXNBHANG]; 

DEFINE !NTCIASS*C6*3]#, INTPARMCL ASS*C9 I 33#> 
T'NfPRT s[24~«67#, iNTPARMS «[30l6]i, 
TNAM afl2l36]#» INTX sC2»l03#» 



INTINLINE»C12«63#* 



DEFINE 



INTNUM 
INTSEEN 



»C36t 12J## 

*C2»i3# ; 



tnsertmTx 
insertcop 
tnsertmid 
tnsertfid 
tnsertinx 
jnsertseq 



20 #, X MAX NO GF RECURSIVE 
INSERTINF0CINSERTDEPTH#4J *, 
INSERT INFO CINSERTDEPTH# 3 

i risE'Rf i nfo! i nsert" dept h#T1 



CAUL ALLOW QN LIB ROUT 



*» 

*; 



INSERTINF0UNSERTDEPTH,2 3 

INSERTINF0CINSERTDEPTH*3 3 
ARRAY lMSERTINF0E0»iNSERfMAX»0M3; 
DEFINE MSRW-11 #J 
ALPHA ARRAY MESSAGEtQ!MSRW»0»963 f 

boolean array msflto *msrw 3 ; 

alpha array linedictcoi7, 011273; % line dictionary array 

alpha array lineseg co i 1 1* 1 127] ; x line segment array 

ARRAY TsSMESAfoUSJ i %%% BIT FLAGS PRNtD ERR MESSgS ■ 1 5748 ) . 

integer noun; x number of entries in line segment 
real l*stad0r ) xxx stores last adr, 



INTEGER WARNCOUNT 
DEFINE CE * 

LASTC s 
SEG'NO ■ 
CLASS » 
FQ * 
SUBCLASS ■ 
CLASNSUB * 
ADJ ■ 

twoo ■ 

FORMAL « 

typefixeo* 

A DDR "» 

LINK * 

RASE ■ 

SIZE """■ 

basensize* 
nExtra * 

AD INFO * 
RELADD * 
jOCE n 

to Segno » 
tolastc « 

TOCLASS « 

toeq * 

TOSUBCL « 
TOADJ * 

tOformal * 
totypf ■ 
toaddR * 

TOLINK " ""■ 
TOBASE a 



) xxx 

C 2i 13*, 
[ 31 1 2 3 # jp 

Ci5t 53#, 
C20« 13#, 

C14I103## 
C14IU#, 

"fi*in*#"" 

Cl3tl3## 

Cl2tl3## 

"f24t"IT]'fi 

C36ii23#« 

tl8»153## 

C3it isJi* 

C18I303#» 
C^ 21 631, 
"[ "8 T 10T#V 
C2lll53#, 
2»47t i#, 
3T391 9*, 
3«36I12#, 
15U31 5## 
'20T«7'i i#, 

21 1451 3#> 

141471 1#, 

131471 l## 

12»47J1## 

24*36»12#, 

36«36tl2#, 

18I33U5## 



COUNTS NUMBER 
*7* IMF ft 



OF TSS WARNING St 



#<A)FA 

wwm 

<Y*/UFA 

T° IMF* 
-foJXJFA 

•ft IHFC 

%{$?<- 
*?o IVFC 

*ft> MFC 

fy/A/FA 

f MFfi 

fcMFA 

'*/NFA 

/UFA 

mm 

ftlfiFA 

Ktm, 

%/tiF* 
fy/DFft 
tfMFA 

°fcl#F<L 






00235000 T 


0069 




00237000 T 


0069 




00238000 T 


0069 




00239000 T 


0071 




02 400 00 T 


0071 




00241000 T 


0071 




00241010 T 


0073 




05241020 T 


007T~ 




00241030 T 


0073 




00241200 T 


0073 




00241220 T 


6073 




00241240 T 


0073 




00241260 T 


0073 




00241280 T 


0073 




00241300 T 


0073 




00241320 T 


0073 




06241360 t 


0073 




00241900 T 


0075 




00242000 T 


0075 




00242650 T 


0077 




00242100 T 


0079 




00242200 T 


0081 




00242220 f 


0083 




00242300 T 


0084 




00242700 T 


0084 




00242750 T 


00B4 




00243000 T 


0084 




00244000 T 


0084 




TO2I5UTO~Y" 


"0W4 




00246000 T 


0084 




00246100 T 


0064 




002470015 "T 


O0T4T 




00248000 T 


0084 




00249000 T 


0084 




66250"006 f 


0014 




00251000 T 


0084 




00252000 T 


0084 




ITO 25 50150 T 


0084 




00254000 T 


0084 




00255000 T 


0084 




00256000 T 


0084 




00257000 T 


0084 




00258000 T 


0084 




00259000 T 


6C- 84 




00260000 T 


0084 




00261000 T 


0084 




0O262W0 f 


0084 




00262100 T 


0084 




00263000 T 


0084 




00263100 T 


0084 




00264000 T 


0084 




00265000 T 


0084 




00266000 T 


0084 




00267000 T 


0084 




00268000 T 


0084 




00269000 T 


0084 




00270000 T 


0084 




l1 



33»33tl5*, 
2*42! 6*, 

8«38l 10## 
21'33U5*. 








DEFINE 
DEFINE 



KNOWN * 01* 
RRAYID ■ 1*» 

RID » 2*> 

MTFUNID"" 3*' 

MELIST * 4*, 

RMATIn ■ 5*# 
AM LTD" ■ ~&t # 
FUNIO * 7#, 
|NTRfUNI0» 8** 
FXTIB «""?!' 
SUBRID a 10*, 
BLOCKIO « 11*, 
FILE ID »"'12"#, 
SUBSVAR ■ 13*, 
FXPCLASS « 14*, 
SBVEXP" ■ i5f, 
j- ISISID « 16*, 
nUMMY » 27*, 
nUMCLASS a 28*, 
RESERVED a 29#, 
HEADER * 30*, 

ywocoM i' JHt_ _ "S_ ^ — -^ 

TNTYPE * 1*, S~ 

STR|NGTYPEt:2#» 

REALfW*"!*' " 
lOGTYPE » 4*» 

doubtypf ■■ 5#* 

c'Omptyfe s~ct? " " " 

eof' 500*, id" 501*, num* 502*, p 
star"* 505*, slash* 506*, lparen" 

EQUAL- '" 5 OWTTf tfMH A i 5l 0*7 S E M Is 5 

thru « step i until # 



"> 



00271000 T 0084 
00l7?0W ~f 0084 

00273000 T 0084 

00274000 T 0084 



00275000 
00276000 
00277000 
002TffOOO 
00279000 
00280000 



00282000 
00283000 



00285000 
00286000 
XJOIBTOW 
00288000 
00289000 
002 90 000 
00290050 



T" 

T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 



0084 
0084 
0084 
0084 
0084 

0084 
t)08"4 

0084 
008 4 
0084 
0084 
0084 



0084 
0084 
0084 
0084 



00290100 

0029T0W 

00292000 

00293000 

OO2TW00 



TT0T9TOTHT 
00296000 
00297000 
00298000 
00299000 



T 
T 

T 
T 
T 



ODlOOOOtTT 




LUS* 503*, MINUS* 504*, 
507*, RPAREN» 508*, 

11*7 oOLLAWi-Of, WAHRDWi 

t 



wr 



ADD" 
,CDC 
,DUP 

Vqfc 
,iso 

,LOD 
,MKS 
,XRT 

, SSN 

, x i r 

,DIA 

,AD2 

,SSF 

,TOP* 

i 



B5W w 

COC » 
6BC * 



534* 

40* 

278* 



CHS «134#, 

E0UL*581*, 

GTST'ifO'fffT 

ISN »548#, LEQL» 333* 

LOR • 35#, LOV • 131* 

M U L "' * 64*7 N EO L » 69* 

RDV »896*, RTN « 39*, 
SSP ■ 582** STD * 68 
■ Ti*rtPT~*3ttTi~VTV *l28*7 
n 45*, DIB a 49*, TRB « 53#, 

*1 7 *' *$? *_1 9# * Ml *2 ■ 65*, 
s 2 8 0*7 F f F ■ 4 5 3 *7 C T C "'■' 



SFC 
KOM 
GBW 

rev 

LND 
LES 

NOP 
RTS 
*, SU 
"STN 
ISO 
DV2 

err 



'■ J8T, "BTw "* 
•130*, DEL « 
*790*, GEOL» 
"i 38 4*7 



LNG * 

MOS • 

m 



- 67#, 
S«54_9#,_ 

- i i?7'WL 

167*, SND ■ 
B * 48*, XCH 

«T3T*~ " 

* 37# 

129*, FTC * 197* 



550* 

10* 
21* 
24* 
19* 

515* 
"i"8i _ 

132* 
* 133* 



= 262* 
FOR MAT F D < X 100, "NEXT 



■' i"~"7T 3, X 2/2A6T I 



FORMAT S E OS T RT ( T6 17"" ST ART OF SEG M ENT" * * ******* vmy-TWTr 



00301000 T 
00302000 T 

W3WTOCT 
00316000 T 
00317000 T 
TJOJITOOXTT - 
00319000 T 
00320000 T 
TJOT21W0" f 
00 322000 T 
00323000 T 
00324000 'f 
00325000 T 
00326000 T 
" " TJTOTOFOTT" 

00328000 T 
00329000 T 
OO~330000 T 
00330010 T 
00331000 T 
OTJ3T2W0T 

START OF SEGMENT ** 
3 IS 9 LO NG, 
0033300a T 

START OF SEGMENT ** 



0084 

00B4 

0084 

0084 

0084 
~O084 

0084 
"00W 

0064 

0084 
- OTOT 

0084 

0084 
~00l4 

0084 

0064 
H0W4 

0084 

0084 

0^64 

0084 

0064 

0O8~4 " 

0084 

0064 

O06¥ 

0084 

0084 

0084 
0084 

******** 

NEXT SEG 
"0"OB~$ 

******** 



^ 




3 
2 



FLAGR0UT.INEFpRMAT(XM#A.«#A2»Xl»2A.6»" C"» A1#I*»" >" >.# . 
XHEDM(X40*"CR0SS REFERENCE LISTING OF MAIN PROGRAM"* X41 * /» 

X40*"— ""-" " ------- -- ---- .......»»,x41)* 

XHEDSCX38* M CRQSS REFERENCE LISTING OF SUBROUTINE "*A6*X38*/* 
X38* "" — — — ....... — .......... »,A6»X38)» 

XHEDF(X35*"CRQSS REFERENCE LISTING OF M *A6*A1*" FUNCTION "*A6* 



"»A6*A1*" 



A6# 



ARRAY 

REAL 

REAL 



x35*/*X35*"— — — — — - -- 

X35), 

xHEDG(X43#"CR0SS REFERENCE LISTING OF GLOBALS"* X43* /» 
X43» M -"~-- -----.-.- ....... .. .......«•, X43 j , 

xHE0B(X34» "CROSS REFERENCE: LISTING OF BLOCK OATA "SUBPROGRAM^/XS 
/»X34,«- — — ------- ------- .. ..... .... ..........h, X 3 5) 

SEGENO (X70*" SEGMENT"* 15*" IS"vl5»" LONG"); 

PHPRT [Ol31fOl63]J 
PDTNX; X INDEX OF LAST ENTRY IN POPRT 
TSFGSZ; X RUNNING COUNT OF TOTAL SEGMENT SIZE; 
COMMENT FORMAT OF PRT&5EGMENT ENTRIES* IN POPRTJ 



5* 

» 



HTYPF" 
DTYPC» 



PRTAF* 

PRTACs 

RELAD_F 

RELAOC* 

SGNOF* 

SGNOC» 

OKAC * 
SEGSZF 




1 
2 

1 
2 
3 



DEFINE STYPF* U»2J#* X 
STYPC* 1I46«2** X 

X 
[412]#* X 
4 14612 #,% 

X 
X 
[8«10]** % 
8»38»10«* 
a ClftlO}** 
18«38il6#* 
C28llo3#' 

28I38J10#* 
_ .__.._ s __. 

131331 15#* 

aC_38_iio]#* x segment 

mUiiWHOilt MUST BE" 

SOME EXTERNAL CONSTANTS 
BLKCNTRLINT ■ 5** 

FPLOT2 "■- T5 38** 

TCDNDEF"#I 



PROGRAM SEGMENT-SEGMENT ENTRY ONL^ 

MCP INTRINSIC 

DATA SEGMENT 

THUNK - PRT ENTRY ONLY 

WORD MODE PROGRAM DESCRIPTOR 

LABEL DESCRIPTOR 

CHARACTER MODE PROGRAM DESCRIPTOR 



ACTUAL PRT ADDRESS - PRT ENTRY 

X ADDRESS W I TH .1 N I _ SEGMENT *PR T NL X 

X SEGMENT NUMBER • BOTH 

X RTLXffVE DISK ADDRESS "- SEWN T '"EN f R Y 



SIZE - 
IF 



SEGMENT 



ENTRY 



DEFINE % 



ENDEX 
DEFIN 



PDIR s PDINX,[37J53#* 

POjCi j5QiNxa42i6jI; 

DEFINE CIS m CRDC03#» X CARD 

TIS * CRDCU*' X TAPE 

f"0'5'"i CRDT2T1T* %-filH TAPE 

LOS • CRDC3]#' X PRINTER 
PWROQT*ROOT_.IR*ROOT.IC #*PWI«I.IR,I.IC 
GLOB ALNCXTihrEJftTJ " " 

X SCAN FPB TO SEE IF VARIOUS FILES ARE DISK OR TAPE 
STREAM PROCEDURE GETFPBCQ)* VALUE QJ 



DEFIN 
DEFIN 
BE8IN 
INTEG 



# ; 



ER 



BEGIN 



START 



si ♦ loc getfpb; SJ * SI - 7; O.I 
SKIP 3 DB; 9<IF SB THEN DS ♦ SET 

skip sB>; 

oi ♦ loc o; si * q; ds ♦ wosi 



* 

EL 



LOC 
SE 



o; Dl * di + 5; 
OS * RESET ; 



si '* o; getfpb * si; 



end; 



00333010 T 
003 3 3050 T 


0084 
0084 


00333055 T 


0084 


00333060 T 


0084 


00333065 T 


0084 


00333070 T 


0084 


00333075 T 


0084 


00 3 33076 t 


0084 


00333080 T 


0084 


00333085 T 


0084 


00331TT90 T 


0084" 


00333095 T 


0084 


00334000 T 


0084 


IS ISO LONG* 


NEXT SEG 


00335000 T 


0084 


00336000 T 


0086 


00337000 T 


0086 


00338000 T 


0086 


00339000 T 


0086 


00340000 T 


0086 


00341000 T 


0086 


00342000 T 


0086 


00343000 T 


0086 


00344000 T 


0086 


00345000 T 


0086 


00346000 T 


0086 


00347000 T 


0086 


00348000 T 


0086 


00349000 T 


0086 


00350000 T 


0086 


00351000 T 


0086 


00352000 T 


0086 


00353000 T 


0086 


00354000 T 


0086 


0O35TO8O t 


T50T6 


00355100 T 


0086 


00355110 T 


0086 


wj55T2^rr 


~ OTT8"6 ~ 


00355990 T 


0086 


00356000 T 


0086 


033 7 oe of 


0016 


00358000 T 


0086 


00359000 T 


0086 


" O0T60D0"0~ f "' 


00T5 


00361000 T 


0086 


00362000 T 


0086 


00361500 f 


0586 


00364000 T 


0086 


00365000 T 


0086 


OF SEGMENT ********** 


00366000 T 


0000 


00367000 T 


0000 


00368000 T 


owi 


00369000 T 


0002 


00370000 T 


0003 


00371000 T 


0004 



SB 



integer stream procedure gnc(q); value o; 
begtn si *■ q; si ♦ si + 7j oi ♦ loc gnc; 



DI * DI +7; DS *CHR ENDi 



00372000 T 0005 
00373000 T 0005 



INTEGER 



ENDJ 



FPB1ASEJ 

FPBBASE «■ GETFPBC3); 

tis ♦ tos *■ so; cis ♦ iQs * o; 

IF GNCtFPBBASE+3) «12 THEN CIS ♦ 150; 

IF 6nc(FPB8ASE+8) »12 THEN LOS «• 150 i 

IF GNC(FPBBAse+13) a 12 THEN T0$ * lSOi 

IF GNC(FPBBASE+18) *12 THEN TIS * 150; 



X CARD 

* printer; 

% NEW TAPE I 
X TAPE 



BEGIN COMMENT INNER BLOCK; 
X *** Dn NOT DECLARE ANY FILES PRIOR TO 
X SEQUENCE OF FOLLOWING FILE 
FILE CARD (5*10, CIS); 



5 IS 



_ THIS POINT* 
DECLARATIONS 



DO NOT ALTER 



DEFINE LINESIZE * 900 # ; 

SAVE FILE LINE DISK SERIAL C20ILINES IZEJ (2* 15*LQS»S AVE 10); 

SAVE FILE NEWTAPE DISK SERIAL C 20 I LI NESl ZE ] "FORSYM" (2* 10#T0S*SA VE 

FILE TAPE "FORSYM" ' C'2» 1 0» T I S'> I 

FILE REMOTE 19(2*10) ; 

DEFINE CHUNK *180#; 

DEFINE pTR*LlNET*RITEi»LINE#,CRiCARD#*TP«TAPE#; 

FILE COPE DISK RANDOM C20*CHUNK3 (4*30, SAVE ABSC SAVETIME ) ); 

FILE LIRRARYFIL DISK RANOOM (2*10*150); 

DEFINE LF "S LI8RARYFTl#; 

FILE XRfFF DISK SER IAL C20 I 1500] ( 2* XRBUFF ) ; 

FILE XRFFG DISK SERI ALC20* 1500 ] ( 2* 3*XRBUFF ); 

REAL DAlOC; X DISK ADORESS 

LABEL PQSTWRAPuP; 

procedure emitnum(N); value n; real n; forward; 

REAL PROCEDURE lOOKFORINTRTInSTCIXT; VALUE "XT REAL IT FORWARD ) 

PROCEDURE SEGOVF; FORWARD; 

DEFINE RUMPADR* IF ( A0R*ADR+1 )»4089 THEN SEGOVF*; 

DEFINE iUMPLOCALS m BEGIN fp locAlS*LOCALS+V>25$ TREF BEGIN FLA(S<148); 

L0CALS*2 END ENO#; 
DEFINE BUMPPRT»BEGIN IF PRTS*PRT5-H>1023 THEN BEGIN FLAG(46)J 

• — " mswHEWTNoTj — — ■ - ~ - - — 

DEFINE FDOCI * ADR,C36I3]* ADRiC39l7]#; 

define twodprt-iftwodprtx^c; then( tw0dprtx»prts»prts+1 >else twodprtx#; 

real procTdure seawPReT; value"!";" real e; "fwwardt "'" 

procedure printcaro; forward; 

integer procedure fieldcx); value x; integer x; forward ; 

ALPHA PROCEDURE NETDTt*~C")T VALUE~"TV c; ALTHTTtT'cI "T0RWAR0T " 

alpha procedure getspace(s); value s; alpha s; forward; 



START 



io); 



procedurE_ equiv(R); va lue r ; real r;_forwar_d^_ 

procedure "executable^ forward! " "" 

alpha procedure B20<B); value b; real b; forward; 
procedure oebugword cn>; value n; real n; forwaro; 



PROCEDURE 
PROCEDURE 



emitl(n); valut 
aojust;forward; 



nT real "Hi "Tor ward;" 



00374000 
00375000 
00376000 
00377000 
00378000 
00379000 
00380000 
00381000 

32 LONG 
00382000 
00383000 
00384000 
00385000 

OF SEGMENT 
00386000 
00387000 
06388000 
00389000 
00389500 
00390000 
O03VTOOO 
00392000 
00392400 
00392600 
00392700 
00392800 
00393000 
00393100 
00394000 
"00394500 
00395000 
00396000 

~ 0039*500 
00396510 
00396600 
U03966T0-T 
00397000 
00398000 



M3W000 

00400000 

00400010 

OU46T0W 

00402000 

00403000 



00403100 
00404000 
00405000 



00406000 
00407000 



0008 
0008 
OOTO 
0015 
0019 
00T3 
0027 
0031 
NEXT SEG 
0088 
0088 
0088 
0088 

I******** 

0004 
0004 
0011 
0019 
0023 
0027 
0027 
0027 
0035 
0039 
0039 
0043 
0047 
0047 

0047 
0051 

0051 
0051 
"0051 " 
0051 
0051 
0051 
0051 
0051 
005T 
0051 
0051 



"005! 
0051 
0051 




* » 



PROCEDURE DATIME.J FORWARD; 
PROCEDURE EMITBCA»C)J VALUE 

PROCEDURE FIXBCNH VALUE NJ 

PROCEDURE EMlTO(N); VALUE N; 

PROCEOURE EMlTOPDCLlf(N)J VA 

PROCEDURE EMITDESCLIT(N); VA 

PROCEDURE EMITPAIR(L'OP); VA 

PROCEDURE EMITNCN); VALUE NJ 

PROCEDURE arraydecci); value 
Integer procedure entercw, e 

REAL PROCEDURE PftGDESCBLDRrA 

forward; 
procedure writedataca,b,c); 

ARRAY Cro 

procedure scan; 

procedure segment(a,b,c*d); 

real a#b; boolean c 
stream procedure moveseo(olo 
procedure writarow(n»row); v 



a#cj real a; boolean c; forward; 
real n; forward; 

real n; forward; 
lue n; real n; forward; 
lue n; real n; forward; 
lue lfop; integer l»op; forward; 

real n; forward; 

i; real i; forward; 
); value w# e; alpha w* 
, b, c» d ") ; v a~lue a* bvc/o; 



e; forward; 
REAL AVBTCiD; 



value a,b; real a,b; 

T; " FORWARD) " 

forward; 
value a,b,c; 

; array Dto, 03; forward; 
»new); begin di*old; si*new; DS*WDS 

ALUE N; INTEGER N; REAL ARRAY RQWCOl ; 



END ; 



00407500 
00408000 


T 
T 


005 


00408100 


T 


005 


00409000 


T 


005 


00410000 


T 


005 


00411000 


T 


005 


00412000 


T 


005 


00413000 


T 


005 


00414000 


T 


005 


00415000 


T 


005 


504l£00~0 


T 


005 


00417000 


T 


005 


00418000 


T 


005 


oowodo 


T 


"003 


00420000 


T 


005 


00421000 


T 


005 


00422000 


T 


005 


00422010 


T 


005 


00422100 


T 


005 



IF singletog then WRITECLINE#N#R0WC*]) else write<rite*n#rowc*]> ; 



00422110 T 0052 



PROCEDURE WRTTALrSTXFMT,N,Ll,L2#L3*L4>L5»L6»L7»L8) 1 
VALUE N,L1»L2>L3»L4,L5*L6>L7,L8; INTEGER N; 
REAL L1»L2#L3#L4#L5#L6»L7,L8; FORMAT FMT ; 

begIn" 

PRINTBUFFtlULl ; 

li*i ; 

FOR l2*L2*L3#L4»L5,L«'L7,L8 DO PRINTBUFFCLl*Ll+l 1*L2 "I 

IF SINGLETOG THEN WRI TE<LlNE#FMT,F0R Ll*l THRU N DO PRINTBUFF t LU ) 

ELSE WRITE(RITE»FMT#FOR Ll*l THRU N DO PRINTBUFF [LI 1 ) ; 

END WRITALIST ; 



00422I2T3 


"T" 


oorg 


00422130 


T 


0062 


00422140 


T 


0062 


"'" " 00 $2" 2150 


T 


0052 


00422160 


T 


0062 


00422170 


T 


0064 


00422180 


T 


0065 


00422190 


T 


0082 


00422200 


T 


0090 


00422210 


T 


0107 



STREAM PROCEDURE BLANKlTC A*N#P ) ; VALUE N»P; 

BEGIN Dl«-A; NC05*8 LIT" *)j P(dS*8 l if »99999999" ) 



END ; 



00422220 T 0109 
004 22230 f 0109 



boolean stream procedure tssmes(a#b)j value b; 

begin st* a; sklp b" "5b"; it~5f" then else beg tn tally* it 

di*a; skip b db; ds*set End End of tssmes ; 



TS 31 ES* TALLY) 



004222 35 _T 0115 
0W2T240 f - oTl 5 
00422250 T 0118 



STREAM-pROtrDtmt-T55E0ITtX#Fl*P2*P3*-PyWj;- VAtt^" Pt>*2>1^N- J " ~ " — 

BEGIN DI*P;0S*16LIT"TSS WARNINGI "I Sl*x; SI*SI+2; DS*6CHR; DS*4LIT" "} 



-D04-??253 r vxtxr 
00422260 T 0120 



Pl<D5*4flLIT"A TS.S HQL OR QUOTED STRING MUST BE ON J LINE 
P2CDS*4rLIT m THTS CONSTRUCT IS ILLEGAL IN TSS FORTRAN 
P3(dS«-4rLIT"THTS CONSTRUCT IS UNRESERVED IN TSS FORTRAN 
DS*26LlT" "J OS*8LlT"*w; DS+LIT" «; SI«-L0C NJ DS«-3DEC 



"> ; 
"> ; 

") ; 

END TSSEDIT 



PROCEDURE TSSEDCX^N); VALUE X»N; ALPHA X; INTEGER N J 

BEGIN IF NOT (LlSTOG OR SEQERRORS) THEN PRINTCARD J UNPRINTED*FALSE I 

TSSE0ITfX»N*i#N«2#N»3,PRiNTBUFF»«AR"NCdUNT«-WAR^N^^ f" 
WRITAROWCH.PRINTBUFF) END OF TSSED ; 



00422262 T 0124 

13 04 22 2 64 T 013! 

00422266 T 0139 

00422268 T 0146 



00422270 T 0152 

00422275 T 0152 

00~4y2T80 T 0157 

00422285 T 0162 



PROCEDURE ERRMESSCN?; VALUE N* INTEGER Nl 
BEGIN 

STREAM PROCEDURE PLACE( D# N»Xj> S# E'L ) i VALUE N»E I 

begin dt * d* ds * 6 lit "error "j 

St «■ loc n; ds ♦ 3 dec; ds «• 5 lit «i ••; 

St * x; SI «• Si ♦ 2} DS ♦ 6 CHR; OS «■ 4 LIT " "; 

st*s; ds*6 wds; os*6 lit" *; si*l; os*8 chr; ds*14 lit* " ; 

DS ♦ fl LIT "X") DS «• lit M "; 

st «■ loc e; ds * 3 dec; 
end puce; 



START 



XJ0423000 


T 


OI64 


00424000 


T 


0164 


00425000 


T 


0164 


00426000 


T 


0164 


OF SEGMENT 


********* 


00427000 


T 


0000 


00428000 


T 


000 1 


00429000 


T 


0002 


00430000 


T 


0004 


004 31000 


T 


0008 


00432000 


T 


0010 


00433000 


T 


0010 



STREAM PROCEDURE DCPLACE (D#N#X#S»M»P } ; VALUE N#P ; 

BEGIN DI*D; DS«-4lIT ,, ERR# w ; SULOC N; DS*3 DEC; DS*3LIT" ? " ; 

s 1 ♦s ; os*8c hrt d^*2l it* v « ; s 1 «■ x ; si *s 1 ♦ 2 ; ds»6chr; ds*54T ; i r* w 

P(6t*DI-54| os*2lit" *; SUM; DS*44CHR; DS*8LIT" ") ; 

END OF DCPLACE ; 



00433100 


T 


0010 


00433200 


T 


0010 


00433300 


T 


00 J 3 


00433400 


T 


0022 


00433500 


T 


0025 



ERRORCToERRORCT+l ; 

IF NOT MSFLCN DIV 163 THEN 

BEGIN 

MSFLtN DIV 16]*TRUE ; 

CASf<N DIV 16J0F 
BEGIN 

FILL MESSAGECO,*] WITH 
"SYNTAX E M #"RROR "*" " 



*> xooo 



"MISSlNp, % m OPfRATOR"," OR PUNC"*"TUATION •'," "*" % xooi 
W C0NFLICT W # M INQ COMM","ON AND/0 M >"R EQUI VA"# "LENCE AL"' ••LOCATION"* X002 

"MISSlNfi ", "RIGHT FA", "RENTHEST*'^ "V" "V* it XTOT 

"ENTRY ST"*"MT ILLEG","AL IN MA"t"IN PGM Q"*"R BLOCK tt *"DATA *$ X004 

"MISSING "#"END STAT"#"EMENT "*" "#" "#" "# X005 

"ARITHMfT">"IC EXPRE'S^SSiON R£ H V M QUlREb "*"»" w ' w " " "7" TOW 

"LOGICAL "#"EXPRESSr%"ON REflUl"»"RED ••*" "»•» «, X007 



START 



00434000 
00434010 
O04J4020" 
00434030 
00434040 
00435000 
00436000 
00437000 
eF~"5TGWENT 
00438000 
00439000 

uo44aaoo 

00441000 

00442000 

-~TO» 41000 

00444000 



T 0026 

T 0027 

T U021 

T 0029 

T 0030 

t 0031 

T 0032 

f 0032 
*"*****""**'** 

T 0034 

T 0034 

T 0034 

T 0034 

T 0034 

t oai4 

T 0034 



"TOO MANY"/" LEFT PA", "PENTHESE"»"S ">" ">" "» XQ08 

"TOO MANY"," RIGHT P", "ARENTHES"* "ES "»" "*" ", X009 

"FORMAL P","ARAMETER"," ILLEGAL"'" IN COMM","ON "#" ", 1010 

"FORMAL P","ARAMETER%" ILLEGAL"*" IN EQUI"*"VALENCE "»" "* XOl 1 
"THIS STA","TEMENt I","LLEGAL I"#"N BLOCK ","DATA SUB"»"PRQGRaM ", S0J2 

"INFO ArR","AY OVERF","lOW "*" "»" "*" "» XQ13 

"IMPR0PfR"»" DO NEST"," "," "," "," ", X0J4 

"00 LABfL"," PREVIOU'V'SLY OEFI"/"NED "*" "V" ", "3015 
01 

FILL MESSAGEt 1**3 WITH 
"UNRECOfiN","IZED STA M ,"TEMENT T"*"YPE "#" "*" 



% X016 



"ILLEG 

"FORMA 
"UNDEF 
"MULTI 
"ILLEG 
"UNPAI 
"NOT E 
"TOO M 
"FUNCT 
"FORMA 
"ILLEG 
"NUMBE 
"CANNO 
"SUBRO 
"IDENT 
O; 



AL % 

T S", 

INE"» 
PLE", 
AL "* 

RFO"# 

Nnu", 

ANY", 

inN", 

L P", 
AL "» 

R 0", 

f"B"i 
UTl"# 
IFI", 



"DO" STATE", 
"TATEMENT", 
"D LABEL ", 
" DEFINIT", 
"IDFNTIFI", 
" QUOTES ", 
"GH SUBSC", 
" SUBSCRI", 
" OR SUBR", 
"ARaMETER", 
"USE OF N", 
"F PARAME", 
"RANCH TO", 
"NE OR FU", 
"ER ALREA", 



"ME Nf 
" MUST 



HA" 
n 



"ION " 
"ER CLASS" 
"IN FORMA" 
"RlPTS " 
"PTS " 
"OUTINE P" 
" MuLTIPL" 
"AMELIST " 
"TERS INC" 
" FORMAT " 
"NCTION N" 
"DY GIVEN" 



VE LABEL" 

n 
If 

IN THIS" 

T " 
if 

w 

REVIOUSL" 

Y DEFINE" 
ti 

ONSISTEN" 

STATEMEN" 

OT DEFIN" 

TYPE " 



" CONTEXT"*" 



"Y DEFINE"#"D 
"0 IN HE A" # "DING 

ft ft j, tt 

If J "'"'," ft "" 

"ED IN PR",«OGRAM 



FILL MESSAGEC2**] WITH 
"ILLEGAL "* "FORMAT S",«YNTAX "< 



"INCORRFC"* 
"INcONSlS*, 
"ARRAY TD", 
"EXPRESsI". 
"ILLEGAL "» 
"ILLEGAL "# 
"DECLARaT", 
"INCONSlS"* 
"NO f OF P", 
"ILLEGAL "» 
"ERROR TN", 

"ILLEGAL % 
"TOO MANY", 
"TOO MANY", 
"LAST BlO", 
O; 



"T USE OF", 
"TENT USE", 
"ENTIFIER", 
"ON VALUE", 
"FILE CAR", 
"CONTROL ", 
"ION MUST", 

"Tent use"* 

"ARAMS. 0", 
"USE OF F", 
" HOLLEin", 
"ACTUAL P", 
" SEGMENT", 
" PRf ASS", 
"CK OECLA", 



" FILE 
M OF IOEN" 
" EXPECTE" 
" REQUIRE" 
"0 SYNTAX" 
"ELEMENT " 
" PRECEDE" 
" OF LA BE" 
"ISAGREES" 
"ORMAL PA" 
"fH LITER" 

"aRameteR" 

"S IN SOU" 
"IGNMENTS" 
"RATION H" 



11 n 

"TIFIER " 
up 11 

"D " 

11 if 

n ♦♦ 

" FIRST R" 
"L AS PAR" 
" WITH PR" 
"RAMETER " 
"AL CHAR A" 
11 ii 

"RCE PROG" 
"IN SOUR" 
"AD LESS " 



•». « 



"EFERENCE"*" 
"AMETER "V" 
"EV, REFE"»"RENCE 



"* 
« 

M 
II 
If 



"CTER COU"#"Nf 



" 

"RAM "j»" " 
"CE PROgR"#"AM " 
"THAN 102">"4 WOROS " 



FILL MESSAGEC3,*] WITH 
ILLEGAL "," I/O. LIST"," ELEMENT"'" 



"LEFT SiD","E MUST B%"E SIMPLE"*" OR SUBS"*"CRIPTED "'"VARIABLE"* 
' V A R I A B L E " .* " _ E X_P E C T E ' 



.", 



,"D 
"OR. 



w. « 



*0~17 
X018 
X019 
X020 
X021 

X022 



"ILLEGAL "*"USE OF 
"ILLEGAL "»"USE OF ."#"ANo. 



X023 
%024 
X025 
X026 
X027 
X028 
X029 

X030 
X031 



X0 32 

X033 
X034 

X033 
X036 

X0"37 
X038 
X039 
1040 

X041 
X042 
X043 
X044 
X045 

X046 
X047 



X048 

X049 
X05 
X051 
X052 



09445000 
00446000 
00447000 
00448000 
00449000 
00450000 
00451000 
00452000 
00453000 



8 IS 97 LONG, 



00454000 T 
00455000 T 
START OF SEGMENT ** 



W4566W 
00457000 
00458000 
00459000 
00460000 

00461000 
00462000 
00463000 
00464000 

0046560° 
00466000 

00467000 

00468000 

00469000 

00470000 

ooirriow 



9 IS 97 LONG, 



00472000 
00473000 



START OF SEGMENT ** 
00474000 T 
004T30W T 
00476000 T 
00477000 T 

00478000 T 
00479000 T 
00480000 T 
0048 iOOC it 
00482000 T 
00483000 T 
0O4PO00 f 
00485000 T 
00486000 T 

00487000 T 
00486000 T 

00489_00_0 T 
10 IS 97 LONG, 
00490000 T 
00491000 T 
START OF SEGMENT *♦ 
00492000 T 
00493000 T 
00494000 f 
00495000 T 



0034 
0034 
0034 
0034 
00 34 

0034 
0034 
0034 
0034 
NEXT SEG 
0034 
0035 

Dp******* 

0016 
0036 
0036 
0036 
0036 
0036 
0036 
0036 
0036 
0036 
0036 
0036 
0036 
0036 
0036 
0016 
NEXT SEG 
0037 

0037 

******** 

0039 

0039 

0039 

0039 

0039 

0039 

0039 

0039 

0039 

0039 

01339 

0039 

0039 

0639 

0039 

0039 
NEXT SEG 

0039 

0040_ 
******** 

0041 

OPAl 

"0041 
0041 



10 



11 



m 



HILLE 
"ILLE 

"ILLE 

"ILLE 

"ILLE 

"RECO 

"TOO 

-FILE 

"BINA 

W UNDE 

"ILLE 

o; 



GAL H 
GAL " 

GAL " 
GA L " 
GAL " 
RD B" 
MANY" 
CAR" 
RY W" 
FINE" 
GAL " 



"USE OF a'V'NOT. "*♦• "*" 
"USE OF R"*"ELAT lONA"*"L OPERAT"*"OR 
"MlxEO TY","PES "*" "," 
"EXPRESSI", "ON STRUC"#"TURE "*" 
"PARAMETE","R "*" "*" 
♦•LOCK GRE"*"ATER THA"#"N 1023 "*" 
" 0PTI0NA","L FILES ">" "»" 
"DS MUST ", "PRECEDE "'"SOURCE D"* h ECK 
"RITE STA","TEMENT H">"AS NO LI"*"ST 
•♦D FORMAT"*" NUMBER "#" "*" 
"EXPONENT"* " IN cONS"*"TaNT "*" 



« . t» 



'ILLEGAL 



"MAIN 

"PARA 

"PARA 

"PARA 

"PARA 

"PARA 

"PARA 

"PARA 

"ARIT 

"ARRA 

"MORE 

"ONLY 

"TOO 

"FORM 

"FORM 

o; 



FILL MES5AGE[4**] 
", "CONSTANT"," IN 



WITH 
DATA"*" 



STATEME"»"NT 



PrO","GRaM MIS"* 
METE"*"R MUST B", 
METE"*"R MUST 8"* 
MEtE"*-R MUST 8", 
METE"*"R MUST 8"* 
MEtE"*"R MUST B"* 
METE"*"R MUST B", 
METE"*"R MUST B"* 
HMfT"*"IC - LOG"* 
YlD "*"MUST BE "* 
ThA","N ONE MA", 
CnM","MON ELEM'% 
MANY"*" FILES ", 
AT 0"*"R NAMELI"* 
AL P"*"ARAMETER"* 



"SING " 
"E ARRAY " 
"E EXPRES" 
"E LABEL " 
"E FUNCTI" 
"E FUNCTI" 
"E SUBROU" 
"E ARRAY " 
"ICAL CON" 

"SUB SCRIP" 
"IN PROGR" 

"ENTS PER" 

« « 

"ST TOO L" 
" MUST BE" 



"IDENTIFI"*"ER 
"SION 



,« 



"*" " 

t», N ff 

"on ident"»"ifier "»" " 

"on or su"*"broutine"#" id " 

"Tine ide"*"ntiFier "*" " 
"i0entifi"*"er or ex"* "presslon" 

"flict on"*" store "»" " 

"Ted in t"**his cont«*"ext « 

"AM "*" "*" " 

"MITTED "*" "'" " 

« tt" t 'n U'jit ""» 

"ONG "," "»" " 

" ARRAY I"»"OENTIFIE"#"R " 



FILL MESSAGEC5**] WITH 



'FORMAL P","ARaMETER h ," MUST '"BE""***" SIMPLE" "*"VARIABIE**" 



"FORM 

"FORM 

"FORM 
"DO 
"ILLE 
"RLE 
"CONS 
"PARA 
"COMP 
"COMP 
"TOO 
"VARI 
"ARRA 
'"CO MM 
"ARRA 
Oj 



AL P" 

AL ~ p* 

AL P" 
R IM" 
G A t n 

GAL " 
TANT" 
METE" 
LEy " 
LEy " 
MANY" 
ABLE" 

Y BO" 
A OR" 

Y AL" 



"ARAMETER"* 
♦•ARAMETER", 
"ARAMETER", 
"PLIED DO", 
"COMPLEX ", 
"MIXED TY", 
" EXCEEDS"* 
"R TYPE C"* 
"EXPRESSI"* 
"EXPRESSI"* 
" FORMATS", 
" ARRAY B", 
"UNO MUST"* 

" right pw; 

"READY GI", 



" MUST BE" 

"" MUST "BE"** 
" MUST BE" 
" INDEX M" 
"CONSTANT" 

"PE STORE" 
" HARDWARE 
"ONFLICTS" 
"ON ILLEG" 
"ON ILLEG" 
" ReFeREN" 
"OUND MUS" 
" HAVE IN" 
"ARENTHES" 
"VEN BOUN" 



" FUNCTIO" 
« SUBROUT" 
" FUNCTIO" 
"UST BE I" 

H H 

W M 

"E LIMITS" 
"WITH "PR" 
"AL IN IF" 
"AL IN RE" 
"CEO BUT " 
"T BE FOR" 
"TEGER OR" 
"T5~EXPXC* 
"DS " 



*"N I 
V w rNE 

*"N 
*"NTE 



*" 

,H EV J 

*" ST 
*"LAT 

*"MAL 



*" RE 



denti"»"fier " 

tden^v«titter " 

r sub"*"routine " 

ger 0"*"r real " 



OUS U**"SE 
ATEME"#"NT 
ION "*" 

YEf""V"FOUNtf 

VARI"#"A8LE 
AL TY"»"PE 



*"TED 



X053 
X054 

%055 
X056 
X057 
X058 
X059 
X060 
X061 
X062 
1063 



X064 

X065 
X066 
X067 
1068 
X069 
X070 
*071 
X072 
X073 

X074 
X075 
X076 

%wr 

X078 
X079 



X080 

X081 

T082 

X083 

X084 

1083 

X086 

X087 

X088" 

X089 

X090 

%w\ 

X092 
X093 



FILL MESSAGEt6#*3 WITH 
"ONLY FnR","MAL ARRA"*"YS MAY B"*"E GIVEN "* "VARI ABLE"*" BOUNOS % 

"MlSSINfi "*"LEFT PAR","ENTHESI S"*" IN ImPL"*"IED DO "*" "* 



X095 

X096 
X097 



11 IS 



00496000 
00497000 

00498000 

00499000 

00500000 

00501000 

00502000 

00503000 

00504000 

00505000 

00506000 

00507000 

97 LONG 



00508000 

00509000 

START OF SEGMENT 

00510000 

00511000 
00512000 
00513000 
00514000 
00515000 
00516000 
00517000 
00518000 
00519000 
00520000 
00521000 
00522OO0 
00523000 
00524000 
00525000 
97 LONG* 



T 


0041 


T 


0041 


T 


0041 


T 


0041 


T 


0041 


T 


0041 


T 


0041 


T 


0041 


T 


0041 


T 


004i 


T 


0041 


T 


0041 


* 


NEXT SEG 


f" 


0042 


T 


0042 



********** 

T 

T 

T 

T 

T 

T 

T 

T 

T 

T 

T 

T 

T 

T 

T 

f" 



12 



0044 
0044 
0044 
0044 
0044 
0044 
0044 
0044 
0044 
0044 
0044 
0044 
0044 
0044 
0044 



12 IS 



00526000 
005270~00 
START OF SEGMENT 
00528000 
0052T000 
00530000 
00531000 
00512000 
00333000 
00534000 
00515000 
00536000 
00537000 
00531000 
00539000 
00540000 
O054T0W 
00542000 
00543000 
~97T0NG* 
00544000 T 
00543000 T 



NEXT SEG 
T 0044 
T 0045 

********** 

0046 
0046 
0046 
0046 



13 



IS ys 



0046 
0046 
0046 
0046 
0046 
0046 
0046 
0046 
0TT46 
0046 
0046 
NEXT SEG 
0047 
0047 



START 



OF SEGMENT 
00546000 



********** 
T 0049 



14 



"SUBSCR!P"»"T MUST B","E INTEGE"'"R OR REA" 


*"L "'" 


"# X098 


00547000 T 


0049 


"ARRAY Sl","ZE CANNQ W ,«T EXCEED"'" 32767 W" 


,"ORDS "*" 


", X099 


0054 8000' T 


0049 


"COMMON 0","R EQUIV ", "BLOCK CA"'"NNOT EXC" 


»"EED 3276"»"7 WORDS 


"' xioo 


00549000 T 


0049 


"THIS STA W ,«TEMENT I","LLEGAL I"'"N LOGICA" 


»"L IF "'" 


"' X101 


00550000 T 


0049 


"REAL OR ", "INTEGER ","TYPE REQ"' "U IREO " 


t it tt f n 


"/ X102 


00551000 T 


0049 


"ARRAY BO","UNO INFO'S "RMATION "'"REQUIRED" 


," "," 


"' X103 


00552000 T 


0049 


"REPLACFM","ENT OPER","ATOR EXP"»"ECTED " 


," "," 


", X104 


00553000 T 


0049 


"IDENTIFI","ER EXPEC","TED "'" " 


, M « , It 


"' Xl05 


00554000 T 


6W9 


"LEFT PaR%"ENTH£SIS%« ExPECTE"'"D " 


p « tt p M 


", X106 


00555000 T 


0049 


"ILLEGAL ">"FORMAL P"' "ARAMETER"'" " 


, It tl f « 


"' X107 


00556000 T 


0049 


"RIGHT PA","RENTHESI","S EXPECT"'"ED " 


f n it , tt 


"» libs 


00557666 T 


0049 


"STATEMfN","T NUMBER"," EXPECTE"»"D " 


,tt n f n 


"* X109 


00558000 T 


0049 


"SLASH FX",«PECTED "," "»" " 


* " " , " 


", X110 


00559000 T 


0049 


"ENTRY sT","ATFMENT "•"'CANNOT B"'"EGIN PRO" 


."GRAM UNI"*"T 


"» "it 11" 


06560000 f 


0049 


0; 






00561000 T 
14 IS 97 LONG, 


0049 
NEXT SEG 7 


FILL MESSAGEC7**] WITH 






60562000 T 


0049 


"ARRAY MU"*"ST BE DI", "MENSlONE"*"D PRIOR " 


>"T0 EQUIV"*" STMT 


"' X112 


00563000 T 


0050 








START OF SEGMENT ********** 15 


"INTEGER "•"CONSTANT"," EXPECTE"'"D " 


, tt it t tt 


"» X113 


00564000 T 


0051 


"COMMA FX","PECTED "," "," " 


, h ti , tt 


"' X114 


00565000 T 


0051 


"SLASH nR"," END OF ", "STATEMEN", "T EXPECT"* 


►"ED "»" 


"' XU5 


00566000 T 


0051 


"FORMAT, ", "ARRAY OR"," NAMELIS"'"T EXPECT"; 


,"ED "»" 


"' XI 16 


665670 00 T 


'6651 


"END OF S","TATEMENT"," EXPECTE"»"D "j 


i" "»" 


"' XH7 


00568000 T 


0051 


"10 STATE", "MENT WIT","H NAMELI"'"ST CANNO", 


►"T HAVE I"»"0 LIST 


"' X118 


00569000 T 


0051 


"comma oR"," End of %"statemeN"V"T expects 


,"ED "," 


it, ,119 


60570600 f 


005 i 


"STRING T","00 LONG "," "," », 


, W tt , tt 


"' X120 


00571000 T 


0051 


"MlSSINr, ","«UOTE AT"," END OF "'"STRING "i 


, W It, tl 


"» X121 


00572000 T 


0051 
6651 


"ILLEGAL "» "ARRAY" ¥0*,"UND "#" "j 


." *," 


"' X122 


00571000 "Y" 


"TOO MANY"," HANGING"," BRANCHE"'"S ", 


, tt It ,H 


"' X123 


00574000 T 


0051 


"TOO MANY"," COMMON ","0R EQUI V"* "ALENCE E"i 


."LEMENTS "»" 


", X124 


00575000 T 


0051 


"ASTERISK"'" EXPECTE","D~ "," ", 


;■*»" ~" »,« -" 


"# XI25 


0057~6"00"6 t 


005T 


"COMMA OR"," SLASH E","XPECTE0 "•" "i 


It tt # tt 


", X126 


00577000 T 


0051 


"DATA SfT"," TOO LAR","GE "," ", 


It It , M 


", X127 


00578000 T 


0051 


o; 






"00579600 f 
15 IS 97 LONG* 


6651 
NEXT SEG 7 


FILL MESSAGEt8**3 WITH 






00580000 T 


0052 


"TOO MANY"," ENTRY S",^ATEME'NT",'«S IN "tHI"» 


"S~ SO SPRIT* 7" GRAM 


"'1128 


00581600 f 


W5 _ 








START OF SEGMENT ********** 16 


"DECIMAI ", "WIDTH EX","CEEDS FI"'"ELD WiDT", 


II H tt , tt 


"' X129 


00582000 T 


0054 


"UNSPEC!F","IED FIEL","0 WIDTH "'" "' 


w *yt» 


"' XI 30 


00583000 T 


0054 


"UNSPECIF"»"IED SCAL"»"E FACTOR"*" "i 


It It, It 


"' Xt31 


00584000 T 


0054 


"ILLEGAL ", "FORMAT C","HARACTER"'" "* 


« tt^lt 


"' X132 


00585000 T 


0054 


"UNSPECTF","IE0 DECI'V'MAL FIEL"»"D "* 


.„ wyw 


"' X133 


00586000 T 


0054 


"DECIMAL ","PlELD IL", "LEGAL FO"'"R THIS S"' 


"PECIFIER"*" 


", X134 


00587000 T 


0054 


"ILLEGAL "'"LABEL "," "'" ", 


•t w,n 


"» X135 


00588000 T 


0054 


" U N D E F I N E " , " D N A M EL T *7" 1 if ™ " i" « " , 


tt "" '""" W~i*i " 


", X136 


00589000 T 


0054 


"MULTIPLY"," DEFINED"," ACTION "'"LABELS "» 


tt t» f it 


"* X137 


00590000 T 


0054 


"TOO MANY"," NFSTED ","D0 STATE"*"MENT5 ", 


» *,t» 


"* Xl3fl 
!"' X139 


00591000 T 


0054 


"STMT FuN"'"CTiON ID W ," AND EXP"' "RESSION "' 


"DISAGREE"'" IN TYP{ 


00592000 T 


0054 


"ILLEGAL ","USp OF S", "TATEMENT"'" FUNCTIO", 


ftM it, it 


", 1110 


00593000 T 


0054 


"UNRECOGN","IZED CON", "STRUCT "'" ", 


tt » t « 


"' X141 


00593001 T 


0054 


"RETURN; ","" St riP ~OR~ w # : '*CXlL EX I ""* " t REQU I"R"» 


"ED IN SU"»"BPRdGRAM", %Wi 


00593002 T 


0054 


"FORMAT N", "UMBER US", "ED PREVI"'"0USLY AS"* 


" LABEL *'" 


"* 1143 


00593003 T 


0054 


OJ 


- — 




00594000 T 


0054 




16 IS 97 LONG, 


NEXT SEG 7 


FILL MESSAGEC9,*] WITH 






00595000 T 


0054 



"LABEL uS","E0 pREVI","OUSLY AS"*" FORMAT ", "NUMBER 



t» , ?f 



"NON'STaN", 


."DARD RET", 


."URN REQU"i 


>"IRES LAB", 


.♦♦EL PARAM","ETERS 


ft 


. X145 


"DOUBLE 0", 


»"R COMPLE"/ 


.♦•X REQUIR"' 


»"ES EVEN ", 


."OFFSET "*" 


n 


» X146 


"FORMAL P" 


PARAMETER", 


." ILLEGAL" j 


»" IN DAT A* j 


► " STATEME'VNT 


ft 


► XI47 


"TOO MANY", 


.♦♦ LOCAL V"/ 


>"ARIABLES"j 


»" IN SOUR"/ 


."CE PROGR">"AM 


"i 


. X148 


"A SFREpF", 


,"ORM SOUR", 


."CE LINE "< 


'•♦MUST HAV", 


»"E < 67 C"'"OLS 


" 


. X149 


"A HOL/ST"i 


.'♦RING UNO"/ 


,"ER $FREE"i 


.♦♦FORM MUS", 


."T BE ON ","ONE LINE") 


.11 50 


"THIS cnN", 


.♦♦STRUCT I"j 


."S ILLEGA"/ 


■"L IN TSS"i 


»" FORTRAN"*" 


"i 


♦ X151 


"ILLEGAL "i 


.♦♦FILE CAR", 


."D PARAME", 


»"TER VALU", 


. "E "# " 


It 


. X152 


"Return T", 


,"N MA IU P 1 " ', 


, "ROWAN^ N w 7 


• "Of ALLOW / 


."TD "" ~ w >^ ' 


ft 


.' X 153 


"NON-POsI"i 


."TIVE SUB"/ 


."SCRIPTS "i 


'"ARE ILLE"i 


»"GAL "»" 


ft 


» X154 


"NON-IOFN M i 


."TIFIER U"i 


."SEO FOR "i 


>"NAME OF "/ 


."LIBRARY "^"ROUTINE 


" 


. X155 


"HYPHEN E", 


.♦♦XPfCTEO "i 


,"« -- ■ - ■«) 


, w «, 


, » it, « 


" i 


. XI 56 


"SEQUENCE"/ 


," NUMBER "j 


"EXPECTED"/ 


i " ♦• | 


, M W, M 


" 


. X157 


"TOO MANY"/ 


»" RpCURST'j 


"VE CALLS"' 


•" ON LlBR"/ 


."ARY ROUT"'"INE 


" J 


• X158 


"ASTERISK"/ 

o; 


>" NOT ALL" , 


"OWED ID *< 


"READ STA"i 


"TEMENT "V* 


w 


XI 59 



FILL MESSAGE C"10V*1' WITH 
"ASTERISK"*" ONLY AL", "LOWED IN"»" FREE FI","ELD OUTP"'"UT 



"TOO MANY" 
"HOL OR Q" 
"DECIMAL " 
"PLUS NOT" 
"K NOT AL" 
"S NOT AL" 
"INTRNScS" 
"DATA STM" 
"VARIABLE" 
"CURRENT " 
"SUBPROfiR" 
"REPEAT, " 
"REPEAT P" 
"IN SUBpR" 
"SYNTATTC" 



•♦ *-ED LI" 
"UOTEO ST" 
"FIELD GR" 
♦♦ ALLOWED" 

"LOWED IN" 
"LOWED IN" 
"-NAMD FU" 
"T COMMON" 
♦♦ CANNOT " 
"SUBPROGR" 
"AM, EXTE" 
"WIDTH, A" 

"art must" 

"GMiVARBL" 
"AL TOKEN" 



"ST ELEME" 
"RING > 7" 
"EATER TH" 
« IN THIS" 
" THIS FO" 
" THIS FO" 
"NCT MU5T" 
" ELEM MU" 
"BE A FOR" 

"AM ID EX" 
"RNAL, OR" 
"ND DECIM" 
"BE EMPT" 
" IS USED" 
" CONTAIN" 



"NTS IN 0" 
" CHARACT" 
"AN FIELD" 
" FORMAT " 
"RMAT PHR" 
"RMAT PHR" 
" HAV PRE" 
"ST BE IN" 
"MAL PARA" 
"PECTEb " 
" ARRAY I" 
"AL PARTS" 
"Y OR > 0" 
" PRIOR T" 
"S TOO MA" 



"PUT "#" " 
"ERS IN E"»"XPRESSN " 

" WIDTH-5"*" " 

"PHRASE ■"#■" " 

"ASE "'" " 

"ASE "* " " 
"V EXTRNL" 
" BLK DAT" 
"METER OR" 



'#" REFERNC" 
'#"A SUBPRG" 
'," IN CMMN" 



w.» 



"D EXPECT" 
" MUST BE" 
" AND < 4" 
"O-USE IN" 
"NY CHARA" 



,"ED " 
, ♦♦ < 4091 " 

>*091 " 
," OATSTMT" 
*"CTERS, " 



FILL MESSAGEtll**] WITH 




"INTEGER "»"VALUEQF%" 8 EXPEC"'"TED "'" **'" "# 

"INTEGER "»"VALUE OF"," 4 EXPEC"»"TE0 "»" "*" "» 
"INTEGER S "VALUE 0F%" 4 OR g *V»"EXPECtED"V" T" *, 
"AN ALPHA", "BETIC LE","TTER C A, ">"B,C, ...»"> "Z > IS RE"»"QUIRED ", 
"SECOND R"»"ANGE LET","TER MUST"*" BE GREA","TER THAN"," FIRST ", 
" I MPL I C T T", " MOST BE", "FIRST WT*TUt*&tV"> " JH TWQS»T*WfK UWTT W # 
"REAL/INT","EGER/L0G","ICAL/C0M"#"PLEX/D0U"#"BLEPRECI"»"SI0N REQ"# 

"ILLEGAL ","USE OF A","STERISK ","FOR RUN*", "TIME EDI"#"TING " 

"NO PRO GR*'," AM UNIT "7"F0R" 

ui ■ 



THIS 1 *," 



END S"TA"V^tTMENX 



n~ir 



', X144 00595001 

START OF SEGMENT 

00S95002 

00595003 
00595004 
00596000 
00596001 
00596002 
00596003 
00 59600 4 
~D 059 6005 
00596006 
00596007 
00596008 
00596009 
00596010 
00596011 
00596500 

17 IS 97 LONG 
00596501 
00596510 

START OF SEGMENT 
00596511 
00596512 
00596513 
00596514 
00596515 
00596516 
O0S963S7 
00596318 
00596519 
00596520 
00596521 
00596522 
00596323 
00596524 
00596525 
00596526 

18 IS 97 LONG 
00596527 
W59652T 

START OF SEGMENT 

X177 00596529 

XT78 00596530 

X179 00596531 

X180 00596532 

^TB t 0D59*5T3 

X182 00596534 

' "Jolt? 00596535 



T 0055 

********** 

T 0056 

T 0056 

T D056 

T 0056 

T 0036 

t 0056 

T 0056 

T 0056 

T 0QT6 

T 0056 

T 0036 

T 0056 

T 0056 

T 0056 

T 0056 



17 



X160 

X161 
X162 
X163 
XT64 
X165 
X166 
X 1 67 
X168 
X169 
X170 
X171 
X172 
X17 3 
X174 
X175 



X176 



T 0056 
, NEXT SEG 
T 0057 

T 0057 

********** 



18 



End fill statements )" 



_19_I 

start 

20 I 



END i 
IF DCINPUT THEN 



00596599 
S 55 LONG 
" D0597UDO 
OF SEGMENT 
S J3L0NG 
"00 597936 

00598000 




T 0061 

, NEXT SEG 



T 0W2~ 
********** 20 

» NEXT_SEG 7 

f 0D62" 
T 0062 



BEGtN 

0CPLACE(ERR0RBUFF,N,XTA#LASTSEQ*MESSAGECN OIV 16#6x(N MOD 16)]* 

IF TSSMESTOG THEN TSSMESC TSSMESA[ (NM )DI V 48J# 
ENTIER(CN-I) MOO 48)) ELSE FALSE) ; 
WRlTE(REM0TE'9*ERR0RBUFFt*!l) t 
END J 
IF LISTOG OR NOT DCINPUT THEN 
BEGTN 

PLAcE(ERRORBUFF#N,XTA»MESSAGECN DIV 16#6x(N MOD 16 ) ]#ERRQRCT* 
LASTERR) i 

writarowci/uErrorbuff) ; 
end ; 

MOVESEQfLASTERR»L!NKLlST) ; 

END errmess; 



7 IS 



00598.020 


T 


006J 


00598040 


T 


0063 


00598050 


T 


0068 


00598060 


T 


0071 


OOBW080 


t 


0075 


00598100 


T 


0079 


00598120 


T 


0079 


00598140 


T 


CO BT 


00598160 


T 


0082 


00598180 


T 


0086 


06598200 


T 


0087 


00599000 


T 


0088 


00599500 


T 


0088 


0~6600606~ 


....... 


"0096 


92 LONC 


># 


NEXT SEG 



PROCEDURE FLAGR0UTINECNAME1,NAME2,£NTEMNG) J 

VALUE NaME1»NAME2»ENTERING ; 

ALPHA NaME1#NAME2 ; 

BOOLEAN ENTERING J 

IF ENTERING THEN WRITALlST(FLAGRQUTINEFORMAT* 7* "ENTERIC "NG"» NAME1 * 

NAME2» M + W #FIELD(FLAGR0UTINEC0UNTER«-FLAGR0UTINEC0UNTER + 1)# 

FLAGR0UtINECOUNTER»O) else 
8EGIN 

WRITaLIStCFLAGR0uTINEF0Rmat#7» m LEAVIN m # m G m ,NAME1>NAME2* m -% 
F I ELD ( FL AGRnuT I NECQUNfER ) »TL AGROuf I NECOuNf ER ", 6 ) i 

flagroutinecounter*flagroutinecounter-i i 

END ; 



00600010 


T 


0164 


00600020 


T 


0164 


00600030 


T 


0164 


06600040 


T 


0164 


00600050 


T 


0164 


00600060 


T 


0167 


66666665 


T 


0170 


00600070 


T 


0170 


00600080 


T 


0174 


06600090 


T 


1T6 


00600100 


T 


0178 


00600110 


T 


0179 



xend of flagroutine 

procedure flag?n)j value n; integer nj 

IF NOT fRRORTOg OR DEBUGTOG THEN 

begin 

if not (listog or seqerrors or dcinput) then printcard i 
errmfSS(n); 

IF ERRORCT > LIMIT THEN GO TO PQSTWRaPUPJ 

end; 



00600120 


T 


0182 


00601006 


T 


0182 


00602000 


T 


0182 


00603000 


T 


0183 


00604000 


T 


0183 


00606000 


T 


0187 


00606500 


T 


0188 


00607000 


T 


0191 



PROCEDURE FlOGCNH VALUE Hi INTEGER NJ 
IF NOT rRRORTOG OR DEBUGTOG THEN 

BEGIN ERR0RT08 " «■ TRUE) 

IF NOT (LISTOG OR SEQERRORS OR DCINPUT) THEN PRINTCARD I 

ERRMfSS(N); 

IF ERRORCT > LIMIT THEN GO TO POSTWRAPUPJ 

ENDJ 



00608000 


T 


0192 


00609000 


T 


0192 


00610000 


T 


0193 


00611000 


T 


019fl 


00613000 


T 


01?8 


00613500 


T 


0199 


00614000 


T 


0202 



# 

H 



PROCEDURE FATALCN)* VALUE N.J INTEGER N I 
BEGIN 

FORMAT FATALERRCXXXXXXXX'S X18» 



••PREVIOUS ERROR IS FATAL - REMAINDER OF SUBPROGRAM IGNORED"* 
X17' ..."XX .XX XX XX")) 

ERRORTOG «• FALSE; 

FLAGCN); 

WRlTALiSTCFATALERR/OVO»0#^#0V0,0Vd#O) I 

WHILE NEXT * 11 DO % LOOK FOR END STMT 



START 
START 



006 } SOD 
00617000 
OF SEGMENT 
OF SE GHENT 
00618000 
00619000 



f «i 



BEGIN 



ENft; 



while next /semi do scan) 

eostog «• true! 

scan; 



segmentuadr + 4) div 4# nseg* false* edoc); 
scan; 
end fatal; 



22 IS 19TDNGV 
00620000 T 
00621000 T 
0062-JDWT 
00623000 T 
00624000 T 
DO 6230X5 T 
00626000 T 
00627000 T 
6062l0$0 f 
00629000 T 
00630000 T 
00631000 f 

21 IS 15 LONG, 



0202 
********* 

***"*'*"*'*** 

0000 
0000 

next seg 

oooo 

oooo 
" WOT 

0005 

0006 

0006 

Q009 

0010 
"WO 

ooti 

OOU 
0014 
NEXT SEG 



21 
22 



21 



real stream procedure d2bcbcl); begin si*bct; di«-loc d2bi ds*boct end? 
real procedure getci); value i; integer i ; 



1)0631100 T 0202 
00632000 T 0203 



BEGIN - - 

GET * INFQCCIM).IR,I.IC] ; 
END GET; 



00*33000- T 0204 
00634000 T 0204 
00635000 T 0208 



PROCEDURE PUT(I#VLU); VALUE I»VLul INTEGER IJ REAL VLU ; 
BEGIN 

INF6t(i*I).lR#r.IC] "♦ vlu ; 

end put; 



00636000 T 0210 
00637000 T 0210 

yo6~38i)ircrT~"02io 

00639000 T 0214 



PROCEDURE GeTAllTT* INFAVTNFBiTNFCTl 

VALUE i; INTEGER II REAL INFA* INFB* INFC I 
BEGTN 

i nf a «• info n i ♦ i } , i rv i , i c r ; 

INF8 * INF0C(I*U1).IR#I,IC1; 
INFC «• INFQ[(I<-I + 1).IR,I,IC3; 

END; 



0054 OTTO a T 02TW 

00641000 T 0214 

00642000 T 0214 

do 6ir3 oinr T "0T1 4~ 

00644000 T 0218 

00645000 T 0222 
006460DD t 0226 



PROCEDURE PUTCU#V>; VALUE I#V; INTEGER II REAL V I 



00646100 T 0226 



» « 



^ 



IF I*I>SUPERMAXCCM THEN FATALC124) ELSE COME I . IR# I, IC 3*V ; 



.00.(5.46200 T 0226 



REAL PROCEDURE GETCCI); VALUE I> INTEGER I i 
GETOC0MCCI«-I).IR,I.IC3 ) 



00646300 T 0233 
00646400 T 0233 



PROCEDURE BAPCfV); VALUE VJ REAL V ; 

IF NEXTC0M*NEXTC0M+1>SUPERMAXC0M THEN FaTAL(124) 

ELSE C0MCNEXTC0M,IR#NEXTC0M,IC1«-V J 



00646500 T 0239 

00646600 T 0239 
00646TOO~ "f 0242 



STREAM PROCEDURE MOVEW (F* T#D* M ); VALUE O'M; 

BEGIN SI ♦ F) DI «• T) DCDS *32 WDS; OS * 32 WDS); DS ♦ M HO'S'l End; 



00647000 T 0246 
00648000 T 0246 



PROCEDURE CALLEQUIV(I,B,G)J 
BEGIN RFAL A»T*R#INFA,INFC; 



PROCED 
COMMEN 



rfal last#d; label l; 

U r E ~t OR RE C T TRFDT 1 i A ) I 



VALUE I,B,G; INTEGER II REAL 6; BOOLEAN B ; 



VALUE" RVA* INTEGER RVAi 



START 



IS A 
EMIT 



THIS PROCEDURE CORRECTS THE INFO TABLE FOR COMMON AND 
EQUIVALENCE ELEMENTS. 

IF I TEMS i "ARE "IN* COMMON THE "INFaIEOI BIT IS~'"5"ET 

THIS BIT IS USED TO TELL DATA STATEMENTS THAT THIS 
COMMON ELEMENT AND IF NOT IN BLOCK DATA SUBPROGRAM 

SYNTAX ERROR 1 68V 
THE InFAECEI BIT IS SET TO TELL THAT IF THE CLASS IS VARID 

emit code as if this item were arrayid but do not 
allow subscripting; 

BEGIN 

REAL T,I»LAST>L#REl*TWODBIT>INFA,INFBMNFCJ 



START 



REAL C 
DEFINE 
TWODBl 
CEBIT 
T «■ pj 
DO 

BEGIN 
LAS 
FnR 
BfG 



ebit; 

lb ■ l0werbound#j_ 
t «• real (length > 1023)) 

* REALtLENGTH > l)j 



T*GETC(TJ,LASTC-1 ; 

I * t*2 STEP 1 UNTIL LAST DO 
IN 

IF GETCCn .CLASS a ENDCOM 
I NFA*GET < L^SETC 1 1 ) , L I NK ) i 
IF INFC > AND LB ^ 
BEGIN 

IF BOOLEAN (INFA .ADj) THEN 

REL ♦ -INFC, BASE ELSE REL * INFC.BASE; 



THEN I*QETC(I ),LINK 

iNFC*GETCL*2) ; 
THEN 



00649000 
W650OTJO 
OF SEGMENT 
00650100 
0~0«5T0W 
00651010 
00651020 
00651030 
00651040 
00651050 
00651060 
00651070 
00651080 

0065T0 90 

00652000 

00653000 

OF SEGMENT 

00654000 
00655000 
00656000 
00657000 
00658000 
e06T9000 
00660000 
00661000 



00662000 
00663000 
00664000 



00665000 
00666000 
006*7000 
00668000" 
00669000 



0250 
0250 
********* 

0000 

oooo 
qqop 
Oooo 
oooo 
oooo 



23 



oooo 
oooo 



oooo 
oooo 

*********" 

oooo 

oooo 

" oooo" 

0001 
0002 

offers 

0004 

0004 

0006 

0010 

0010 _ 

0014 

0019 

0020 



24 



0021 
0022 



• 



PUTa + 2*-(INFC&(REL-LB)CT0BASE])); 
END* 
PUTCL»INFA&TWODBITCTOAOJ]&CEBlTCTOCE]&A[TOEQ])i 

End; 
end until t*getcctj f addr*r ; 
end correctinfo; 



00670000 


T 


0025 


00671000 


T 


0028 


00672000 


T 


0028 


00673000 


T 


0032 


00674000 


T 


0033 


00675000 


T 


0035 



24 IS 40 LONG# NEXT SEG 



23 



LABEL XIT; 
IF DEBUGTOG THEN FLAGROUTINE C CALLE% M QUIV W »TRUE ) J 
COMMENT THIS PROCEDURE MAKES THE DETERMINATION IF THIS GROUP 
IS EQUIVALENCE OR COMMON IF BOTH TREATED AS COMMON; 
T ♦ yl 

GROUPPRT ♦ LENGTH * A ♦ Oi 
LoWERBOUND ♦ 32000i 
Do BEGIN IF GETC(T).CE»1 THEN 
BrGlN IF GROUPPRT X THEN 
BEGIN XTA*G > 
FLAGC2); 

end; 
gr0upprt*get(a*getc(t+1)).addr i 

End; 

If t > R THen R V T; 

end until t*getcct),addr*i ; 
if groupprt » then 

IF" B" fHCTif BrGlN BUMFT>RT;GW0UPPRT«.PRTS END "ELSE TOWN ~ 

begin bumplocals; groupprt*l0cals ♦ 1536 end; 
r; 

Ryct * 6; 

Mr6]*L0CALS * SSNM[73*PARMS ; 

mj9]4.lsts_ ; ssnmcioj*lsta ; 

""'" 55W[ "il iJiNAME INO i 
SSNME16]*FX2 j 



T ♦ 

SWA 

SSN 

SSN 

SSNM 

SSNM 

SSNM 

SEE 

DO 

IF 

LOC 

LST 

LS'f 

NX1 

LEN 

I F 

SEE 

IF 

BEG 
IF 



tl23«- SAVES ubs; 

ti5]*Fxi ; 
tj83*.Nxi ; 

N A DbUB*FALSE;* 

IF GETCCT+1) * THEN BEGIN 

FLSE T*GETC(T3._A0DR JJNTIUJ 
GfTCCT ) > 6 THEN EQUlVCf); 



SSNM[8]*PRTS 
SSNMtm*TV 
SSNHXi4"T*lSiTT 
SSNMC173«-FX3 



EQUIV(T); 

a r; 



t*r; end 



AuS*SSNMr63; 

a*ssnmc ioi; 



parms*ssnme7]; prts*ssnmc83; lsts*ssnmc93 ; 

TV*SSNMtlU; SAVESUBS*SSNM[123I NAMEJtN0*SSNMtl33 ; 

FX3*TSNMCl7T 



FX1*SSNM[153; FX2*SSNM[163; 



- LOWERBOUNO; 

L E N G f H * L I N G T H + L E N G T H ~. X 4 7 1 1 37 % E VI :N W I EN 6TH 



USSNMC143; 
♦•SSNMC183 ; 
GtH * LENGTH 

Sfenadoub THEN 
nadoub*false; 

A • THEN 

In comment thts~t5 an equivalence" grow; — 

swaryct > 1 and length * 1 then length «• 21 
if length > 1 then 

a * enterc*0 * arrayidct0class3 4 groupprtc t0a00r3 * 
eqvu> * eqvid+di 

"'"'"" PUT TA^ 2 > 

End; 



; 



"0~~*"TENBTHTT0"STZET)7 



00676000 


T 


0000 


00676010 


T 


0000 


00676100 


T 


0002 


00676110 


T 


0002 


00677000 


T 


0002 


066780 00 


f 


0002 


00679000 


T 


0004 


00680000 


T 


0005 


00681000 


T 


0007 


00682000 


T 


0009 


00683000 


T 


0010 


00684000 


T 


ooii 


00685000 


T 


con 


00686000 


T 


0014 


00687000 


T 


0014 


00688000 


T 


0016 


00689000 


T 


0019 


0W89TO0 


T 


WT9 


00690000 


T 


0025 


00691000 


T 


0034 


00*91500 


"f"" 


00J4 


00691510 


T 


0035 


00691520 


T 


0039 


0059T5WT 


013TI 


00691540 




0048 


00691550 




0050 


006~9T80~0 




0051 


00691900 




0053 


00691950 




0057 


O0692OW 




1)063 


00692010 




0065 


00692020 




0069 


0W9TQW 




0-071" 


00692040 




0077 


00693000 




0078 


TT08935W 




CTOT? 


00693600 




0082 


00694000 




0084 


OT3W4TW 


T 


0W5 


00694150 


T 


0085 


00694200 


T 


0088 


~" OO^WTOTJ 


T 


WS9 - 


00695000 


T 


0090 


00696000 


T 


0092 


OXr8T6T0~0 


T 


"0094 


00696200 


T 


0096 



• 



CnRRECTlNFOCR/0); 

gd to xit; 

end; 

comment this is a common 



BLOCK. 



IF T «■ (INFC * GET(A+2)),SIZE * THEN 

IF T < 1023 AND LENGTH > 1023 THEN 

BfGIN XTA * GET(A + 1); FLAGC47) END; 

IF T < LENGTH THEN PUTCA+2, INFC&LENGTHC T0SIZE3 ) ELSE LENGTH * fi 

IF LFNGTH = 1 THEN LENGTH * 21 

C0RRFCTINF0(R*1); 

XITI 

IF LENGTH > 32767 THEN BEGIN XTA «• GET< A + l ); FLAGC 100 ) END; 
IF OEBUfiTOG THEN FLAfiROUT INE< " CALLE^QUIV W *FALSE> ; 
END CALl EOUIV; 



23 IS 



00197 100 T 
00697200 T 

00697300 T 
00697400 T 
00700660 T 
00701000 T 
00702000 T 
06702166 T 
00703000 T 
00704000 T 
00705600 f 
00705100 T 
00705110 T 
00706600 f 
127 LONG* 



0096 

0097 

0096 
0096 
0098 
0101 
0103 
0106 
0111 
0113 
01H 
0115 
0116 
0126 
NEXT SEG 



stream procedure stoseqc xr, seq* id ); value id; 
begin lhcal t; label l1»l2 ; 

st «■ loc id; duxr; ds«-7liT"o h ; ds*chr; si*si+i; 

If SC 2 M 0" THEN 

BFGIN SI*SI+4I DI*DI-2; 

5(IF SC* « M THEN SI «• SI-1 

ELSE BEGIN D5«"CHR; SUSI-2; Dl+DI-2; END); 

end else 

BEGIN DUDl-6; 

6(if sc«" " then begin tally*tally + 1 ; si*sh-1 en0 

else ds*chr); 
totally; 

end; 

ot*xr; di«-di+8; si*seq; 

bflf sc»" * then si*si+1 else jump out to ll); ds«-8lit»blankseq m ; 
go L2; Li * si*seq; ds«-wds; L2« 
Di*Di*4i si*Loe t; si*si+7; ds+chr; 
end; 



procedure enterxcident*aoinfo>; 
real idfnt»adinfo; 
begin rfal r»s "> 



value ident* adinfo; 



If 



then 



; 



END 



ADINFO. CLASS>LABELIP 
BES I N 

xrc2hadinf0; st0seq(xr#linklist» ident ) ; 
if adinf0.class*funid then xrc2j , [ 26 1 13*s*1 
write(xrefg#3»xrt*j); xglobals^truet" 
end ; 
r*xri mod xrbuffdiv3«0 then 

IF XRlirfQ THEN wRiTE(XREFF#XRBUFF#XRRYt*i) ; 
XRRYC(R*R*R*R)+2]«-ADINF0*SC26t47ll3 ; 

stoseo(xrrycR]'L_inklist*iden_t) ; 

IF XRI*XRI + i = l THEN BEGIN XRC3]*IdENT J XR[ 43<-XRRY C2l 

entfRx; 



START 



IF 



END ; 



00706010 


T 


0250 


00706015 


T 


0250 


00706020 


T 


0250 


00706025 


T 


0252 


00706030 


T 


0252 


00706035 


T 


0253 


00706040 


T 


0254 


00706045 


T 


0256 


00706050 


T 


0256 


66766655 


T 


0256 


00706060 


T 


0258 


00706065 


T 


0259 


06706670 


T 


0259 


00706075 


T 


0259 


00706080 


T 


0260 


00766685 


T 


0263 


00706090 


T 


0264 


00706095 


T 


0266 


00706120 


T 


0266 


00706150 


T 


0266 


66706206 


T 


0266 


OF SEGMENT 


********** 


00706220 


T 


0000 


00706240 


T 


OOOl 


00706260 


T 


OOOl 


00706280 


T 


0005 


66706300 


t 


0009 


00706120 


T 


0015 


00706340 


T 


0015 


06706 35D 


T 


0017 


00706360 


T 


0023 


00706380 


T 


0027 


00706450 


T 


0029 


00706500 


T 


0034 


. „ , 








25 



BH 



25 IS 37 LONG* NEXT SEG 



STRfAM PROCEDURE TRANSFERCW2*B#K)i VALUE K J 

BEGIN DI*W2J SI*B) 5l*SI+8; KCoS«-WDS; 5I*SI*16) END 



00706525 T 0266 
00706530 T 0266 



BOOLEAN STREAM PROCEDURE 
BEGIN Si* F; 0! * S; IF I 



CMPA(F*S>; 
I SC i OC THEN 



TALLY ♦• i; CMPA*TALLYi END; 



00706560 T 0269 
00706570 T 0269 



BOOLEAN 

BEGIN 
CMP 



PROCEDURE CMP(A#8)I ARRAY A*BC03; 



ENDJ 



IF AC01 < BCO] 
IF AC23.C26U3 
IF AC21.C26I4] 

else false; 



THEN TRUE ELSE IF At03 ■ BC03 THEN 

< BE23.C26I4J THEN TRUE ELSE 

= BC23.C26U] THEN CMpAC AC 1] * B[ 1] ) ELSE FALSE 



00706600 


T 


0272 


00706610 


T 


0272 


00X06640 


"f 


0272 


00706650 


T 


0276 


00706660 


T 


0280 


00706670 


T 


0286 


00706680 


T 


0287 



PROCEDURE HVtV)r ARRAY VtOl; 

FILL VT*] WITH 0CT777777777777777,QCT777777777777777»0CT777777777777777; 

BOOLEAN PROCEDURE TNP(XR); ARRAY XRtOJ; 



00706700 T 0289 
0*706720 T 0289 



START OF SEGMENT ********** 26 

00706710 T 0271 
26 IS 3 LONG, NEXT SEG 6 



BEGIN LABEL EOF; WAfU ; 

IF EODS THEN READCXREFG* 3, XRC * ] ) CEOF I ELSE 

IF IT ♦ IT+1 > XRI THEN 

BEGIN EOF» INP*TRUE; IT*XRI*0; END 

ELSE BEGIN 

IF R*(IT-1) MOD XRBUFFDIV3-0 THEN READCXREFF*XR6UFFYXRRYt*3T J 
XRto3*-XRRYrR*R + R+R]/ XRC23«-XRRYCR + 23; TRANSFERC XRC 13 #XRRY t R 3 * 1 > 
EKD ; 

END OF TNP ; 



0O7O673t 

START OF SEGMENT 
00706735 
00706750 
00706760 
00706770 
00706780 
00706800 
00706810 
00706820 



T 0292 

********** 

T 
T 
T 
T 
"T 
T 
T 
T 



27 IS 30 LONGt 



0000 

0006 

0008 

0011 

0011 

0018 

0025 
"0025 
NEXT SEG 



27 



PROCEDURE vaRIabledtms(a#C); value a> c; real a* CT 

BEGIN 

REAL NSUBS* BDL INK , BOUND* II 

LABEL XIT; 



00707000 T 02Tg 
00708000 T 0292 
00709000 T 0292 



START OF SEGMENT ********** 28" 

00710000 T 0000 



• 



if debustog then .. flagrdutinec w varlab">"ledlmsvtrue ) ) 

if nsubs «• c.nextra ■ 1 and a. subclass < doubtype then go to xlt) 

bolimk «■ c.adinfo; 

for t «• 1 step 1 until nsubs do 

'if bouno * extrainf0[bdlink.ir#bdlink.ic3 < then 
emitopdclit(bound) else emitnum(bound); 

BnLiNK "♦ bd~lTn"'K-it" ~ 

if i > 1 then emito(mul); 

end; 

IF A! SUBCLASS I DOUBTTFE "THEN TMTTpTiR*2# MUL); 
EHITpAIR( C.SIZE, STD); 
XTTt 
IF DEBUftTbG THENTLAGRti 

end vartabledims; 



28 IS 



PROCEDURE E 

STREAM PROC 

VALUE CL'SU 

BEGIN FfSI* 

IF 

BEG 

END 

SCDI 

St * 
si* 

ni*P 

POS 

St «- 
St «■ 

St «• 

end of setp 



MlTD(R#OP); VALUE R*QP; REAL R»QP; FORWARD; 
EDURE SETPNT(W1»W2#PNT,CL'SUBC*STAR#P0S»F*S#Q) 
BC»STAR»POS*F#S»0 J 
WlJ SI*SI*2J OI*PNT i 
SC*"0" THEN 

IN nS*5CHR; 0S*LIT M '♦; DI*DI-6; DSVSFILL "*" 
ELSE BEGIN DS+6LIT" "J Dl*PNT; DS*Q CHR END) ; 

♦ pnt; DI«-Di+6J os*lit m "; 
LOC SU8C J ST"* S 1*27 D$ ""* 

loc cl; susi + 2j ds*6chrj 
nt; di*di+21; 
(6i*bi + HT;~ 

* Sl + 7; DS «• 

; 

♦ S'l ♦71" DS ♦ CHR J 



loc star; si 

W2; DS*8CHR 

loc STAR; ST 
nt ; 



6 cHR'i" 
DS«.LIT 1 



chr; 



OS "V 

' ">; 



Lit * *; 









Q07L&010 


T 


OOQO 


00711000 


T 


0002 


00712000 


T 


0006 


00713000 


T 


0007 


007 H 000 


T 


00 16 


00715000 


T 


ooio 


00716000 


T 


0013 


ootitsw 


T 


orris 


00718000 


T 


0017 


00719000 


T 


0019 


WTORHnr 


r 


croxr 


00721000 


T 


0024 


00722000 


T 


0025 


00722010 


T 


OQT26 


00723000 


T 


0028 


31_LJBNft*.. 


NEXT Seg 


00723100 


T 


0292 


00723140 


T 


0292 


00723150 


T 


0292 


00723160 


T 


0292 


00723170 


T 


0293 


00723180 


T 


0294 


00723200 


T 


0296 


00723210 


T 


0298 


00721230 


T 


0306" 


00723240 


T 


0301 


00723250 


T 


0303 


00723255" 


T" 


03103 


00723265 


T 


0305 


00723280 


T 


0305 


00723295 


T 


0306 


00723325 


T 


0307 



PROCEDURE PT<EoF#REC);vALUE EOF; BOOLEAN EOF; ARRAY RECCOJ* 
BEGIN LABEL L6; REAL L ; 



L6» 



IF' EOF THEN WR !l TETl TneTI sT^RTWBUFFT* JT 
ELSE 
IF R00LEAN(L*REAL(REC[0]*RECt0]«REC[2] [ 1 » 26 I 1]»XTA > ) THEN 

BEGIN 

IF IT*IT+1«9 THEN 

BEGIN LASTLINE*FALSE; WRITECLINE* 15,PRINTBUFFC *3 ) ; 
BLANKlT(PRlNTBUFF#i5#lT*0) ; 

end ; 

SETPNT(REC[0],RECCl]#PRlNTBUFF,KLASSCREC[2]tCLASS]^TYPESCREC[2 3 
.SUBCLASS] * IF BOOLEAN (REC C 2 3 ) THEN "«**"' ELSE * "YlT#L* 1# 
LASTLlNE#6-RECt23.t27l33) ; 

END 

else begin 

lastline*true; writecrite#15>printbuffc*]); xta*reccoi ; 



00723450 T 


0307 


00723470 T 


0307 


START OF SEGMENT ********** 


00723520 T 


0000 


00723595 T 


0003 


00723610 T 


0005 


00723620 T 


0009 


00723630 T 


0009 


00723640 T 


0011 


00723650 T 


0018 


00723660 T 


0020 


00723670 T 


0020 


015T2T68C It 


0023 


00723690 T 


0027 


00723700 T 


0029 


06721 7 13 f 


0X^9 " 


00723720 T 


0030 



29 



V 



END OF Pi I 



50 16 ) 

end ; 



00723730 T 0036 

00723740 T 0037 

00723800 T 0037 

29 IS 40 LONG* NEXT $CQ 



PROCEDURE CHECKINFOJ 
BEGIN RpAU If T * A i 

REAL LASTEJ 
REAL INFB'lNFC) 
LABEL "NXfT ALPHA Nj 
FORMAT INFOFC 3CA6* 



X2)* 



" ADDRESS * "* A2# A4» 

"# LENGTH « "* 13* 

"* OFFSET « "* 15)* 
lMFOT( / "LOCAL IDENTIFIERS!")* 
LABFCA6*X10»"LA8EL REL-ADR * 



I6j 



SEGMNT 



M #I5); 



IF PrTOG THfN 

WRITaUSTCINFOT'0#0*0*0*0#0»Q*0*0) i 
IF I ♦ SFARCH( M ERR ") t THEN 

IF GET(niCLASS ."UNKNOWN" THEN PUTC 'l + l» "'" "• "• "% t . '•" Tl" 
IF I * SFARCHCEND ") X THEN 

IF OETCI). CLASS = UNKNOWN THEN PUTCI+1* "......">; 

IF NOT DcTnPUT "TWEN" lF""I*SEARC"Ht"ZlP "*1 jTITTMEN 

IF GET<I).CLASSsUNKNOWN THEN PUTC I + l»% ..♦.." ) \ 
FOR T * STEP 1 UNTIL NEXTCOM DO 
IF GfTC ( I TVCL" ASSliREADr^ TffEN " 

IF GfTCCI).CE«1 then 

PUTC f T*GETCiI + n.tlNK+2),-6ET(T )&0rT0ADINF03 ) J 

T * ?J WHILE T < NEXTINFO DO 

BEGIN " """"" 

GFTALLfT*A*INFB,lNFC); 

IF I «■ A. CLASS > FILEID THEN GO TO NXTJ 

IF N ♦ INFB " ■ « f - f - # -;*r fH| N go TO NXTJ 

XTA «■ n; 

IF I * LABELID THEN 

bf'gin 

if a > then flagc19) else 

if prtog then writalist (labf* 3*n* a . addr div 4* a,segn0*0*0*q*0» 

6 T i " " " " " ~™ "' " "~ ""' """" " 

go to nxt; 
end; 
if i ■ format tq then " '" 

if a > then begin flagc62m go to nxt end* 

IF I ■ NAMELIST THEN 

I f A > ~ T ffETJ "BCGTr TL A GC J36) * GO TO NXT EWH 

IF I * ARRAYID THEN 

IF BOOLEANCA.CE) THEN BEGIN IF A>0 THEN _T*QETSPACECT > ENO 

ELSE iF"""A<0~TH"Eir 

IF BOOLEAN(A, FORMAL) THEN 



00724000 T 
00725000 T 

START OF SEGMENT * 

00725100 T 
00726000 T 
00727000 T 
00728000 T 

START OFSEGMENT * 
" 00729000 T 
00730000 T 
00731000 T 
00732000 t 
00733000 T 
31 IS 37 LONG* 



00734000 

00733000 

00736000 

00717000 

00738000 

007390 00 

00739fOD 

00739200 

00740000 

0"074TOW 

00742000 

00743000 

007WOW 

00745000 

00746000 

0074700Xr 

00748000 

00749000 

007T060(J 

00751000 
00_752000 
6 07 53 GOT 
00754000 
00755000 

"WB755UT6" 
00756000 
00757000 
OU758000 
00759000 
00760000 

"OTJ78rOW 



0307 
J>307 

***"!****"* 

0000 
0000 

uouo 

0000 
********* 

owo ~~ 

0000 
0000 
0000 
0000 
NEXT SEG 



30 



31 



T 

T 

T 

T 

T 

T 

T 

T 

T 

T 

T 

T 
T 

T 
T 

T 
T 
T 
f 
T 
T 
f 
T 
T 

T 
T 
f 
T 
T 
T 
T 
T 



30 



00762000 
00763000 

00764020 T 0075 



0000 
0004 
0006 
0010 
0012 

0TJT6 
0020 
0024 
OTOT 
0030 
0030 
OUTS 
0040 
0040 
TJW3 
0043 
0044 
0U4T 
0048 
0049 
0-056- 
0050 
0052 
"0880 
0061 
0061 
0081 
0062 
0063 
0086 

0069 

0070 

"0874" 



> ► 



If 



BEGIN IF SPUNK > 1 AND ELX > 1 THEN 

BEGIN % THIS IS A FORMAL PARAMETER FOR A SUBROUTINE OR A 

* FUNCTION THAT HAS ONE OR MORE ENTRY STATEMENT, THIS 
% PARAMETER WILL BE INITIALIZED TO AN ARRAY DESCRIPTOR 
% TO SO THAT IF THE PARAMETERS ARE NOT SET UP BY THE 
% CALL ANY REFERENCE TO THEM WILL CAUSE AN INVALlO 
% ADDRESS 
IF LASTF ■ THEN % FIRST TIME THRU 
BEGIN LASTF * A.ADDRJ 

EMITDESCLITC2); EMITLC1); 

EMITD(50#DIA); CM'iTOCiO#blB)i EMltbClO/fRB); 
END ELSE EMlTPAIRCLASTF,LOO)J 
EMlTPAlRCA,ADDR#SNO)j 

END 
END 

ELSE ARRAYDEC(T)J 
PRTOG THEN 
WRITALISTCINF0F#7»INFB* 



IF BOOLEANCA.TYPEFIXED) THEN TYPESC A. SUBCLASS J ELSE 

KLASStA.ClASsi* 

IF A.ADDR < 1024 AND A < THEN "R*" ELSE " % 

IF A < THEN B2DCA. £26110]) ELSE "NULL"* 

INFC.SIZE» 

INFCBASE#0) * 
F BOOLEAN(A.CE) THEN IF A. SUBCLASS i DOUBTYPE THEN 

IF BOOLEANClNFCBASE) THEN FLAG(i46)l 
xT» 

T «• T + 3; 



ENOI 
ENO CHEcKINFO; 



30 IS 



007.A4.a40 ' 


r _QQ76 


00764060 ■ 


r 0079 


00764070 ' 


r 0079 


00764080 ' 


r 0079 


00764090 ' 


r 0079 


00764100 < 


r 0079 


00764J10 * 


r 0079 


00764150 1 


r 0079 


00764200 1 


r 0080 


00764220 1 


r 0082 


00764240 1 


r 0083 


00764260 1 


r 0086 


00764280 1 


r 0088 


067643W 1 


r wig " 


00764320 1 


r 0089 


00765000 1 


r 0089 


00766006 1 


r 0096 


00767000 1 


r 0091 


00768000 1 


r 0093 


00769000 1 


r 0096 


00770000 1 


r 0097 


00771000 1 


r oioi 


00772000 1 


r 0104 


00773000 1 


r 0105 


00773100 1 


r 0106 


00773200 1 


r 0109 


00774000 1 


r oiii 


00775000 1 


r oii2 


00776000 1 


r 0U3 


00777000 1 


' 0119 


123 LONGj 


> NEXT SEG 



PROCEDURE SEGMENTSTARTJ 
BEGIN 

nSEG + NXAViL ♦ NXAVIL + "17 

IF LlSTOG then writalist<segstrt,i#nseg*o#o*o*o»o»o*o> ; 

DE8UfiADR*-ADR*-l i 

IF NOT SE80VFLAG THEN 

BEGIn 

oataprt*oatastr t»datalink »dataskp» 
labelmom ♦ bpTanchx ♦ funvaR" * 
dt * splink ♦ nextcom * elx ♦ o; 

NpXTSS * 1022J 

'iNlYiAL'SEGNO * NSEG7 " " "" ' 

FnR I * STEP 1 UNTIL L8RANCH DO 8RANCHESCI] ♦ I*t J 
FOR T * STEP 1 UNTIL SHX DO STACKHeADCU * 01 
NfXTINFO ♦" LOCALS" * • 2J 

f?tog * false) returnfound * falser 

...end,; 

endsfgtog * false; 

if srgsw then linesegcnolin*0#03*0 & d2b(lastseq)t 101201283 
end segmentstart; 





00778000 


T 


0307 




00779000 


T 


0307 




00780000 


T 


0307 




00781000 


T 


0309 




00782000 


T 


0314 




00783000 


T 


0316 




00784000 


T 


0317 




00784100 


T 


0317 




00785000 


T 


0317 




00786000 


T 


0317 




00787000 


T 


0323 




0078*000 


T 


0324 




00789000 


T 


0324 




00790000 


T 


0330 




00791000 


T 


0334 




00792000 


T 


0335 




00793000 


T 


0339 




00794000 


T 


3339 




00794400 


T 


0341 




00795000 


T 


0347 











SB 



PROCEDURE: FTXPARAMSCI); VALUE i; INTEGER IJ 
BEGIN 

REAL FMINUS* NPARMS* ELINK, LABX; 



IF 



REAL 
REAL 

REAL 
LABEL 

REAL 
DEBUG 

EWORD 
ELINk 
IF LA 



FMINt.) 

NPARm 

IF M 

BFGIN 

PL 

PT 

Fn 

BF 



plinkx* plink; 
ptypex, ptype; 

cl» inf; 
arry# load* indx; 

eword; 

tog then flagroutinec fixp m #"arms %true ) i 

♦ ENTRYLINKtli; 

♦ EWORD.LINKJ 

BX * EWORD. CLASS > THEN 
BEGIN 

EMlTO(MKS)> 

EMITDESCLITCLABELMOM); 
EMITL(LABX)* 

EMITLC1); emitlcdi emitl(o; 

EMITOPDCLITCBLKCNTRLINT); 
EMlTLtDi EMITPAIR(FPLUS2#ST0)JX 

end; 

S «■ 19?0i 

S «• (J«-GETCELINK + 2)).NEXTra; 

PARMS > THEN 



F + 2«-TRUE FOR BLKXIT CALL 



INKX «■ 

ypex «• 
R J «• 1 
GIN 
PLINK 
PTYPE 
FMINUS 
IF PLT 
BEGIN 
EMI 
EMI 
EMI 
EMI 
END EL 
BEGIN. 
IF CL 
XTA ♦ 
IF PTY 

* PTYP 

CASE P 
BEGIN 

ARRYJ 

BEGIN 

TRT 

IF 
BEG 



EWORD.ADDR-NPARMS+1/ 
J.ADINFO + NPARMS-i; 
STEP 1 UNTIL NPARMS DO 



END 



* EXTRA INFO t PL INKX ,IR*PLINKX.IC ] i 

* EXTRA INFO CPTYPEX.IR#PTYPEX.IC3. CLASS; 

'<■ fmTnu'S*i"j 

NK = THEN 

TOPbCLlf (FMINUS); 

TL(LABX ♦ LA8X-1); 

TDESCLIT(LABELMOM); 

tO(STO); 

SE 

* (TNT * GEfC PL INK)), CLASS m UNKNOWN" THEN Tt _ * VARTDT 

getcplink+d; 
pe «_0 then extrainf0cptypex.ir#ptypex.ic3, class 

e~* cl; ~ 

TYPE OF 

; 

1 "SR-RAYTir THIN Ft AG (79 5 " ELSE ~ ~ ™ ~ ~ 



nu"S" i-nFMiNw+n " 

INF < THEN 

IN 

f MiTFAiwcrMTNus, wot; 

EMITPAIR(T*INF.AD0R# STD); 
EMITQP0CLITJFMINUS-1); 
EM l i T P A I R (T- 1, "ST D ) ;" 

; 



00796000 T 


0347 


00797000 T 


0347 


00798000 T 


0347 


START OF SEGMENT * 


********* 


00799000 T 


0000 


00800000 T 


0000 


00801000 T 


0000 


09802000 T 


0000 


00803000 T 


0000 


00803010 T 


0000 


00804000 T 


0002 


00805000 T 


0003 


00806000 T 


0004 


00807000 T 


0006 


00808000 T 


0006 


00809000 T 


0007 


0081 000 t 


0008 


00811000 T 


0008 


00812000 T 


0011 


00812400 T 


001 1 


00813000 P 


OOn 


00814000 T 


0013 


00815000 T 


0014 


00816000 P 


0017 


00817000 T 


0017 


00818000 f 


0018 


00819000 T 


0020 


00820000 T 


0022 


00821000 T 


002 a 


00822000 T 


0028 


00823000 T 


0030 


0082*000 T 


003/1 


00825000 T 


0035 


00826000 T 


0036 


00827000 f 


0016 


00828000 T 


0037 


00829000 T 


0039 


" OO830O0O f 


W39 


00831000 T 


0040 


00832000 T 


0040 


008 31000 f 


0041 


00834000 T 


0045 


00835000 T 


0046 


U08 35000 T 


0050 


00837000 T 


0052 


00838000 T 


0053 


00839000~T 


-"OOYF 


00840000 T 


0055 


00841000 T 


0056 


"" 00842000 T 


"TT058" 


00843000 T 


0057 


00844000 T 


0058 


WB450WT 


" OTOg 


00846000 T 


0059 


00847000 T 


0061 


00848000 t 


0062 


00849000 T 


0064 



32 



END J . _. .. 

IF CL t VARIo THEN FLAGC80) ELSE 

LOADJ 
BEGIN 
IF INF 
IF INF 
BEGIN 

EMI 

EMI 

IF INF 



.SUBCUSSiDOllBTYPE AND CL'VARIO THEN FMINUS*FMINUS*U 
<0 THEN 



end ; 

end; 



tpair(fminus, lod); 
tpair(t*inf,addr»stD); 
.subclassidoubtype ano cl*varid then 

BEGIN EMifOPDCLlf<FMINUS-l)^" 

emitpair(t+1#std)j 

nd; 



; 



IF 61 » FUNID THEN GO TO LOAD ELSE FLAGC81)J 



i 

IF CL * FUNID OR CL a SUBRID OR CL « EXTID THEN GO TO LOAD 

ELSE FLAGC83); 
IF CL ■ SUBRTO THEN GO TO LOAD ELSE FLAG<82>) 
; ; 

BEGIN 

IF "CL "■ "ARRaYID THEN 
BEGIN 

EXTRAlNFOtPTYPEX.lR#PTYPEX,IC3 tCLASS * CLJ 

GO TOAWRTJ --- " — ■■ 

End; 
Indx» 

IF CL * VARIO THEN FLAG<80); 
FMINUS * FMINUS + H 
IF INF < THEN 
BEGIN 

EMlTOPOCLlTCFMINUS-1); 

emitdesclit(fminus); 

EMifPAlRCiNF.ADDR* STO); 

end; 
end; 

IF CL * VARTd THEN GO TO LOAD ELSE FLAGCab)) 

go to indx; 

end case statement; 



A * iNFiSUBC^ASS; 

I FT V E X TRTI NTOTP TYPE X.I R"/ PYYpT* ". IX TVSTl I CiTSS"! T OR 

T ■ INTYPE ANO A * REALTYPE THEN 

EXTRAINFOtPTYPEX,IR#PTYPEX,lC3. SUBCLASS * A ELSE 

IF T * A THEN 

BEGIN XTA * GETCPLINK+Ij; FLAGC88) END; 
ENQj 

PL I NKX «■ "PXINKX + O 
PTYPEX ♦ PTYPEXMJ 



OQ.850_5.QJ3 ._.T _ QQ_64 




00851000 T 0064 




00852000 T 0066 




00854000 T 0068 




00854100 P 006a 




00854200 T 0072 




00854300 T 0072 




00855000 T 0073 




00856000 T 0074 




00856100 P 0076 




00856200 T 0078 




00856300 T 0080 




00856400 T 0081 




00856500 T 0081 




00857000 T 0081 




00858000 T 008? 




00859000 T 0082 




00859100 T 0084 




00859200 T 0084 




00859300 T 0084 




00859400 T 0084 




00859500 T 0084 




00860000 T 0084 




00861000 T 0084 




00861100 T 0087 




00862000 f 0U89 




00863000 T 0092 




00864000 T 0092 




00865000 f 0092 




00866000 T 0092 




00867000 T 0093 




0086BW0 T "" 00~97 




00869000 T 0098 




00870000 T 0098 




00871000 T 0098 




00872000 T 0100 




00873000 T 0101 




00874000 T 0102 




00875000 T 0102 




00876000 T 0103 




00877000 T 0104 




00878000 T 0106 




00879000 T 0106 




0088^000 T 0106 




00892000 T 0109 




00893000 T 0109 




START OF STGMETf r ********** 33 




33 IS 17 LONG* NEXT $EG 32 




00894000 T 0110 




"'""" 00895000 T 01 ll 




00896000 T 0115 




00897000 T 0117 




00898000 T 0121 




00899000 T 0123 




00900000 T 0126 




0^901350" T ^5 126 




00902000 T 0127 





w, 



«• PLINKX-NPARMS; 
* 1 STEP 1 UNTIL NPARMS 00 



EMDJ 

plinkx 

rnR J 

BFGIN 

PUNK «. txfRAINrOtPLINKX.IR»PUNKX.lCy; 

IF PLINK * THEN 

IF (A*GET<PLINK)), CLASS « ARRAYID THEN 

IF T*GET(PLTNK*2) < THEN VARl ABLEOIMSCA, 'Tit 

PLINKX «• PLlNKX + li 

end; 
end; " ' 

EMITbCGET(ElINK+2),BASE & CGET(ELlNK)»SEGNOHTOSEGNO)# FALSE); 
IF DEBUfiTOG THfN FLAGROUT INE(" FIXP"# m aRMS w #FAL5E) * 

end fixparams; 



00903000 

00904000 

00905000 

00906000 

00907000 

00908000 

00909000 

00 91 0000" 

0O9U0O0 

00912000 

009X3000 

00914000 

00914010 

OOTISOOO 



32 IS 160 LONG* 



0128 
0130 
0132 
0133 

oris 

0133 
0136 
013? 

0143 
0144 
0147 
0147 
0151 
015-3 
NEXT SEG 



PROCEDURE XREFCORESORT ; 
BEGtN 
REAL F#G*H,I»J#K#L»T*TT*IJ#M#TN J 



SAVf ARRAY AtO'XRl- 
ARRaY W2*W3[0»XRI-1 
LABfL Li»L2#L3»L*»L 
DEFINE CMPARGT(A) * 



CMPARLS(A) 



NAME * C 121 3 

J*XPl-l; G«-XRI DIV 

FOR LM STEP l'Wtl 

BEGIN 

Lilt REA0CXREFF,H,X 

ij*t+k-i; TN* 

FOR F*T STEP 1 

BEGIN A[F 

END i 

IF H«XRBUFF THEN IF 

GO l 4 I 

Ll» IF AC KM j.NAME>TN«-( 

L12l BEGIN ACIJ3*AC 

ELSf IF CMPARGTCACI 

if acji.name<tn the 

BEGIN 
L14J ACU3«-AtJ3; A 

IF tN*(t*ACIJ] 
L13J BEGIN AC I 

ELSE IF CMPARG 

END 

ELSE IF CMPARL5CACJ 
L2I IF ACL*L-U.NAME>TN 
131 IF ACK*K*I].NAHE<TN 

IF K LEO L THEN BEG 



13# IL*IUCO»83 i 

3 ; 

5#L6,Lii»li2»L13#Ll4 i 
A,NAME*TN THEN IF (IF G«-W3[H«-A . [2 1 103 3 . C26 » 43 
sTT«-W3[F««T. [211033. C26I43 THEN NOT CMPA(W2tH3, 

yzznrEiM s>t?t ~t> - ™ — - 

A,NAME»TN THEN IF (IF G*W3[H*T . G2 t 103 3 . [ 26 14 3 
*TT*W3CF*A,C2tl033.t26t43 THEN NOT CMPA(W2[H3» 

" « "2TF I ) Et SE "~ G>Tf J "" # ~i ' ■ " 

63 # ; 

K*XRBUFFDIV3; H+XRBUFF ; 
L G DO 

RRY[*3); TRANSFER(W2CT*(L-l)x50J,xRRY,K) ; 

-3 J " - " - - " 

UNTIL U DO 
3*XRR_Y t TN*TN*3 3*F 1 2 I 38 U 3 ; W3 1 F 3*XRRY t TN + 2 3 END; 

K*XRI MOD K DIV 1*0 THEN BEGIN H*3XK)G0 Lll END; 

T*Afij*t(i*j)>T+i)a3rfrorjy/NAME twen 

n; au3*t; tn4.(t*acij3),name eno 

3) THEN GO L12 ; 

N 

tJ3*T ; 

)tNAME<A[I].NAME THEN 

J3«-Acn; aci3*t; tn*ct«-a[U3).name end 

TCACI3) THEN GO L13 ; 

3) THEN GO L14 ; 

THEN GO L2; IF CMPARGT ( ACL 3 > THEN GO L2 ; 

THEN 60 13; IF CMPARLSCATKD THTN GO L3 ; 
IN DOUBLE(ACK3»ACL3»«-»A[L3*AtK3); GO L2 END ; 



00913100 
00915120 
00915140 
START OF SEGMENT 
00915160 
00915180 
009T5200 
00915220 
00915240 
"""■"00 (9152 60 
00915280 
00915300 
"00915 320 
00915340 
00915360 



T 0347 
T 0347 
T 0347 
********** 



00915380 
00915400 
00915420 
G0915T40 
00915460 
0091548 
00915500 
06915520 
00915540 
"009T5360 
00915580 
00915600 
00915620 
00913640 
00915660 
009 15650 
00915700 
00915720 
00915740 
00915760 
0091 5780 
O0T15800 
00915820 



T 
T 

T 

T 

T 

T 

T 
"f"~ 

T 

T 
T 

T 

T 
7 

T 

T 

t 

T 

T 
T 

T 

T 
'?' 

T 

T 
"f 

T 

T 
._.. 

T 
T 
7 
T 



0000 
0005 
0008 
0008 
0008 
0001 
0008 
0008 
0O08 
0008 
0008 
00 12 
0014 
001(1 
U02T 
0024 
0025 
0030 
0035 
0040 
0041 

0048 
0053 



34 



0068 
0068 
OOTi 
0075 
0080 

0093 
0093 
0106 
OT22" 

0138 



* • * 



IF L*K>J*I. THEN..BEQIN ILCM3*IJ IUCM3*LJ I*K END 
ELSf BEGIN IL[M]*KJ IUEMJ«.j; J*L END ; 
M*M + i ; 
L4» IF I + 10< V I THEN 60 U ; 

IF T*0 THEN IF I<J THEN GO U i 
FOR 1*1 + 1 STEP 1 UNTIL J 00 

IF AtK«-I-n.NAME>TN*(T«-Am),NAME THEN 
BEGIN 
L5I AtK + n*ACK]J IF AtK«-K-13 .NAME>TN THEN 60 L5 ; 

IF CMPAR6T(A[K3) THEN GO |_5 ; 

' ACK'i"tT»f"r 

END 
ELSE IF CMPARGTCACKJ) THEN GO l5 i 
IF fM*lMil , 5'''^Q'''lJ"TflCT"'BEMW'"r*TLT»yrj*ret>IIJ'""6Cri4' END") 
G*XrI-1 ; 
FOR 1*0 STEP 1 UNTIL 6 00 

IF BOOLEANCUREAL(Atn*AtniNAME4(TN*W3[J«.Atn.t2»I03 3)[l»26ri3 
*XTA)} THEN 
BEGIN 
IF IT*IT+1«9 THEN 

BEGIN LASTLINE*FALSEj WRITECLINE* 15, PRINTBUFF [ * 3 ) t 
L6« BLANKIT(PRINTBUFF#15,IT*0) ; 

END ; 
SETPNTCAtl3,W2CJ3#PRINTBUFF>KLASStTN,CLASS3#TYPESCTN, 

SUBCLASS3*IF BOOLEAN(TN) THEN "* M ELSE " M »IT#L-1# 
LASTLINE,6-TN,[27»33> ; 
END 
ELSE BEGIN 

lastuine*tRue; ~"NfiTtE('ftifE#Ts*» | R'iNfBurrr*y)')' XTA+Am "j 
go L6 ; 

end ; 

WRlTECLiNE#i5#PR"rNTBUFrt*3)i XRJ>0"'J 
END OF XREFCORESORT ) 



009 
009 
009 
009 
"009 
009 
009 
009 
009 
009 
009 
009 
009 
069 

009 
009 



15840 
15860 
15880 
15900 
15926 
15940 
15960 

15980 
16000 
16020 
16040 
16060 
16080 
15100 

16120 
16140 



3a 



009 
009 
009 
009 
009 
009 
009 
009 
009 
009 
009 
009 
009 
009 
009 
009 
009 
IS 25 



16160 
16180 
16200 
16220 
16240 
16260 
16280 
16300 
16320 
16 340 
16360 
16380 
16406 
16420 
16440 

16460 
16480 

6 LONG* 



0J42 
0148 
0152 
0153 
0155 
0158 

°J*2 
0166 
0167 
0173 
0185 
0187 
0187 
"02UQ 

0205 

0206 

0207 

0210 

0213 

0213 

0215 

022J 

0224 

0224 

0226 

0230 

0232 

023? 

0233 

0240 

0240 
'""07*3 

0246 
NEXT SEG 



proceoure setupstack ; 

BEGIN 

REAL IJ 

EMIT0PDCLIT(16>; 

EMiTiciJ; " 

emtocadd); 

EHITLC16); 

EMITn(SND)"> " 

FOR T * 1 STEP 1 UNTIL LOCALS DO EMITLC0)J 

CHECKINFOI 

IF DaTAPRT i 6 THEN 

BEGIN ADJUST; EMITOPOClH (DATAPRT ); EMITO(LNG); EMITB C -1* TRUE ); 

DATASKp*LAX; EMI TB (DATASTRT#FALSE \% FI XBCOATALINK }; 

EMifLCi )/ fMrT^AXR'CDATAPRf#"STdTl"FlT§Tff*TAS"Krj7 

end; 
adjust; 

end setupstack; 



00916900 
00917000 
00918000 

START OF segment 

00919000 
6"0926660 
00921000 
00922000 
00921000 
00924000 
00925000 
00925010 
00925020 
00925030 
00925040 
00925050 
00 9250 60 
66926006 
21 LONG 



35 IS 



T 0347 

T 0347 

"T 63T7 

********** 

T 
t 
T 
T 
t 
T 
T 
f 
T 
T 
T 
T 
T 
T 



0000 

6000 

OOOl 

0002 

0003 

0003 

0008 
"6008 

0009 

00l_2 

0615 

0018 

018 

0018 
NEXT SEG 



35 



PROCEDURE BRANCHLIT(X,Y); VALUE X,YJ REAL X* BOOLEAN Yl 
BEGIN 
I 



THEN 

adr+i; 



segovf end; 



AD 
IF 



EL 

EM 

END B 



F ADR I 4075 

bfgin adr * 
just; 
xlsegnbxnseg then begin 

IF <PRTS*l)it37l23«l AND Y THEN 

EmIT0PDCLITCPRGDESCBLDR(2#0,CADR+5) DIV 4+l,NSEG>) 
El SE EMlT0PDCLlTCPRGDESCBLDR(2#0#(ADR+5) DlV 4*NSEG)> 

SE 

itl((a0r+5) div 4 - x.link div 4) ; 
ranchlit; 



END 



00927000 


T 


0347 


00928000 


T 


0347 


00929000 


T 


0347 


009 30000 


T 


0348 


00931000 


T 


0351 


00932000 


T 


0351 


00932300 


T 


0353 


00932700 


T 


0355 


00933000 


T 


0359 


00934000 


T 


0354 


00935000 


T 


0364 


00936000 


T 


0367 



PROCEDURE SEGMFNT(SZ»CURSEG,SEGTYp»EDOC); X WRITES OUT EDOC AS SEGMENT 
VALUE SZ*CURSEG*SEGTYp; % UPDATES PDPRT WITH PSUEOO 



real sz/curseg; 
boolean segtyp; 



ARRAY 

BEGIN 



edocco*ot; 



X UPDATES PDPRT WITH PSUEOO 
X TRUE TO WRAP UP A SUBROUTINE BLOCK 
% FALSE TO WRAP UP A SPLIT BLOCK 

X CONTAINS DATA TO WRITE* 



STREAM PROCEDURE Ml(F»T)i BEGIN DI ♦ T; SI * F; OS «• 2 WDS ENO; 
REAL T; 



START 



00937000 


T 


0368 


00938000 


T 


0368 


0093^000 


T 


0368 


00940000 


T 


0368 


00941000 


T 


0368 


00952W0 


"T" 


0J68 


00943000 


T 


0368 


00944000 


T 


0368 


OFSEGWEffT 


***'"* *'«**** 


00945000 


T 


0000 



36 



REAL BEGTNSUB* TNDSUB* HERE? 
LABEL WRITEPQM; 
INTEGER I' GNTR; 

IF DEBUfiTOG TH'EN fLAGROUTIneC " SeGM*Y*eNT " H ,TRUE 5 t 

IF NOT SEGTYP THEN GO TO WRITePGM; 
IF SPLINK > 1 AND NOT RETURNFOUND THEN 
BEGIN XfA* BLANKS} FLA6< 142) ENOJ 
IF SPLINK < THEN 
BEGyN 

adjust; 

boprtcbdx*bdx+l] * prgdescbldrc 1* 0# (adr+1) div 4* nseg); 

FOR I * 1 STEP 1 UNTIL LOCALS DO EMITLCO); 

CHECKINTOi """ 



END 
BEGIN 



EMiT8(0&INlTlALSEGN0tT0SEGN0]# FALSE); 

X MAIN PROGRAM 



ELSE 

IF SPLINK * 1 THEN 



adjust; 

if strtseg_ * then flagc75); 

strTseg ♦"' nSeg g ' "- ■ ' 

PRGDESCBLDRd* 0* CADR + 1) DIV H, NSEG ) C 18 I 33 * 153 ; 



0094*000 


T 


otroi 


00947000 


T 


OOOl 


00948000 


T 


OOOl 


" 015*41010 


T 


OOOT 


00949000 


T 


0003 


00949100 


T 


0003 


00 94 9 2 Off 


T 


0005 


00950000 


T 


0007 


00951000 


T 


0008 


00951000 


T 


0009 


00953000 


T 


0009 


00954000 


T 


0014 


00955000 


f 


0016 


00955500 


T 


0020 


00956000 


T 


0020 


'" ~"009~5T0W 


T 


0022 


00958000 


T 


0022 


00959000 


T 


0022 


0U9"6tt0W 


T" 


"OTJZT 


00961000 


T 


0024 


00962000 


T 


0024 


00963000 


T 


0016 


00964000 


T 


0027 









setupstack; 
emitbco&initialsegnoctosegno]* false); 



END 



xvoid 



ELSE 

IF ELX i 1 THEN 

BEGIN 

adjust; 

, T ♦ PRGOESCBlDR(1# GET(SPlINK).ADDR# CADRU) DIV 4, NSEG); 

setupstack; 
fixparams(o); 

INFOtSPLINK.IR* SPLINK . IC 3 .SEGNO * NSEGI 
END 

ELSE 
BEGTN 

adjust; 

beginsub «• <adr+1) & nsegct0segn03 i 

emitlm7)' emito(std); 

setupstack; 

EMITOPDCLITC17); EMITO(GFW); 
ENDSU8 «• ADR 4 NSEGCTOSEGNO 3 ; 
FOR I ♦ STEP 1 UNTIL ELX-1 00 
BEGIN 

aojust; 

HERE * (AOR+l) DIV Ht 

t * entrylinkch.link; 

T ""«■ PRSDTSCBLOKCi, GEtM).aOOR, HERE/ NSEG); 

bramchlitcenosub* false); 
emitbcbeginsub* false); 

»dJust; " " " " 

fixparamsci); 

INF0t(ENTRYLlNK[n.LINK).IR#(ENTRYLINKtn.LlNK).lC3.SEGN0*NSEG; 



END 
END 



SZ * (ADR+4) OIV ft; 

cntr" *■ "oi 

curseg «• nseg; 

wRiiEPGMt : ._ _ 

NSEG «• C(T «• SZ) + 29) DIV 30; 

IF DALOC DIV CHUNK < I ♦ (DALOC+NSEG) DIV CHUNK 
THEN DALOC <■ CH(jNK_x II % INSURE. _SEGMENT_DONT BREAK 

~ % ACROSS ROW 

IF LISTOG THEN WR IT ALlST (SEGENO* 2* CURSEG, T# 0*0, 0# 0,0,0 ) 
P0PRT[PDIR*PDIC3 * X PDPRT ENTRY FOR SEGMENT 



szIda'loccdkacj " 

« GET(SPLlNK)C12lHin 
ACURSEGtSGNOCi; 

IF ERRORCT * THEN 

DO BEGIN 

FOR_I*0 STEP 2 WH ILE I < 30 

beg in ml < edoc c cntr , t 38 i 3 3 # cntr . 1 41 17 33 * code < i ) ) i 

cntr ♦ cntr + 21 
end; 

WRITE (CODE tDALOCnr 
DALOC <• DALOC +11 



AND CNTR < SZ 00 



. 00965000 


T 


0030 


00965500 


T 


0030 


00966000 


T 


0030 


00967000 


T 


0032 


00968000 


T 


0032 


00969000 


T 


0032 


00970000 


T 


0034 


00971000 


T 


0034 


00972000 


T 


0035 


00973000 


T 


OO39 


00974000 


T 


0039 


00975000 


T 


0040 


00976000 


T 


0044 


00977000 


T 


0044 


00978000 


T 


0044 


0Q979Q00 


T 


OO45 


00980000 


T 


0045 


00981000 


T 


0047 


00982000 


T 


0049 


00982100 


T 


0049 


00983000 


T 


0049 


00984000 


T 


0051 


00985000 


T 


0053 


00986000 


T 


0057 


00987000 


T 


0057 


00988000 


T 


0037 


00989000 


T 


0059 


00990000 


T 


0061 


0099T030 


T 


00*1 


00992000 


T 


OO64 


00993000 


T 


0065 


00994000 


T 


0066 


00995000 


T 


0066 


00995500 


T 


0067 


00996000 


T 


00 7i 


00997000 


T 


0073 


00998000 


T 


0073 


00999000 


T 


0075 


00999100 


T 


0076 


ojoooooo 


T. 


0076 


01001000 


T 


0077 


01002000 


T 


0079 


01003000 


T 


0081 


01004000 


T 


0083 


01005000 


T 


0083 


01006000 


T 
T 


0088 


01007000 


0090 


01007100 


T 


0092 


01008000 


T 


0093 


01009000 


T 


0095 


OlOlOOOO 


T 


0095 


01011000 


T 


0097 


01012000 


T 


0102 


01013000 


T 


0107 


01014000 


T 


0109 


01015000 


T 


0T39 


01016000 


T 


0114 



raPH 



END UNTIL CNTR * SZJ 

PDINX «■ PDINX + i; 

IF NOT SEGOVFLAG THEN 

IF PXREF THEN 

IF(EOOS*CNEXf»EQF))ANd NOT XGLOBALS THEN ELSE 

BEGIN KLASSI6] «- "LABEL "J 

WRITE(XREFF»XRBUFF#XRRYC*3) ; 

IFTTKSTCALL THEN DATIME ELSE WRITE(PTRtPAGE3 )l 
IF SPLINK<0 THEN 

BEGIN WRITE(PTR#XHED8)JREWIND(XREFF);EN0 
ELSE" " 

if eoos then begin write(ptr#xhedg ) i rewind* xrefg ) end 
else begin rewindcxreff); C2*cxrc43.subclassx2+5>i 

"IF If ♦XRt43,CLASS"F"UNlD THEN WRITECFTtt/xHEDF* 
XRCC23#xRCC2+l]#XR[3]#XRtC2+i23» 



eno; 
if*xf a"*c i ; 

LASTLINE * 



XRCC2 + 133," — — 

ELSE IF IT«SUBRIO THEN 

"— — ") ELSE 



■") 

WR I TE( PTRf XHEJ3S# XR C 3 ] V 
WRITE(PTR#XHEOM)| 



UNTIL 24,39 STEP 1 UNTIL 
DO TiPECn*REALiD ; 
UNTIL 37 DO TIPEU3*INTIO 



41* 



; 



false; 

blankit(printbuffm5,0); 

if xri>1023 or eoos then sort (pt# inp» 0#hv# cmp* 3* 4000 ) 
else xrefcoresort ; 
rewind(xreff); 

pxref*ifxref then true else false) 
klassc6] * "error "j 

if (not segtyp and eods) or csegtyp and llstog and 
nqt segptog) then write cptrtpage3)i 

END) 

IF LlSTOG AND SEGTYP AND SEGPTOG THEN WRITECPTRCPAGE3 >J 

IF SEGTYP THEN " " '" 

BEGIN 

for i*12#17 step 1 

50 step 1 until 57 

for i*25#33 step 1 

lastnext*1000 i 

end ; 
enosegtog * true; 
tsegsz * tsegsz ♦ sz; 

COMMENT "IF SeGSW THEN LETS ALSO WRITE OUT THE LINE SEGMENTS 
THAT WE VE GONE TO SUCH TROUBLE BUILDING. LlNESEG 
CONTAINS A CARO SEQUENCE NUMBER^BINARY) IN C_10«283 

AND ~'f HE" WORD BOUNDARY ADDRESS OF THE FTrST CODE" 

SYLLABLE IN [38«103; 
IF SEGSW THEN 

IF NOLIN > Of HEN 

BEGIN 

LlNEDICTtCURSEG,IR*CURSEG.IC3 ♦ X UPDATE LINE DICTIONARY 
" T NOLTn n"ST33 » 15 3 T DALOC t 33 1 1'JiTfTl XFOlT"f HTT SEGMENT 
CNTR * O; DO BEGIN 
FOR I ♦ 9 STEP 2 WHILE I<30 AND CNTR<N0LIN DO 

""BEGIN" "" " " """ " ~~ ■ - ■ ■ — 

Ml(LINESEGCCNTR,C38l33*CNTR.t4H73 3#CODECI>); 

cntr_* cntr +2 

"end; 
write(cqdecdal0c3); 



01017000 
01018000 
01018025 
01018100 
01 01 611 
01018120 
01018125 

oicrBiTir 

01018135 

01018140 

0TOT8T4T 

01018150 

01018160 

OIOWITO 

01018180 

01018190 

Of 01 M 00 

01018210 

01018220 

01018260 

01018280 

01018320 

01018330 

01018340 

01018350 

01018355 

01018360 

01018370 

01018375 

01018380 

01019000 

010T9T00 

01019110 

01019150 

01019160 

01019170 

01019190 

OUT? 200" 

01020000 

01021000 

01021010 

0102U50 

01021200 

"01021250 
01021300 
01021350 

"01 021360 
01021400 
01021450 

"0102T5W 
01021550 
01021600 
"0102163(3 
01021700 
01081730 
01021 BOO 
01021850 



T 
T 
T 
T 
T 
T 
T 
T 

T 
T 
T 

T 

T 

T 

T 

T 

T 

T 

T 

T 

T 

T 

T 

T 

T 

T 

T 

T 

T 

T 

T 

T 

T 

T 

T 

T 

T 

T 

T 

f 

T 

T 

f" 

T 

T 

t 

T 

T 



0115 
0116 
0118 
0119 
D120 
0123 

0125 
0129 

0137 

0137 

-014T 

0143 

0119 
0T51 
0158 
0167 
0170 
0183 
0J92 

0192 
0194 

0195 
0197 

0218 
022l 

0223 
0226 
0227 
0230 
0236 
0236 
0242 
0243 
0243 
0253 
0260 
0267 
0T68 
0268 
0270 

027r 

0271 

0271 

027T 
0271 

0271 
"0272- 
0273 
0273 
0"276 
0277 
0279 
OST84 
0284 
0289 

029~0 
0291 



DALQC ♦ OALOC + 1J 

END UNTIL CNTR S NOLlN; 

end ; 
if not segovflag then xrl i* 0; 

if 6ebugt0g then flagrout i nec " segm%"ent 
end segment; 



"* FALSE) i 



36 IS 



010.21900 T 02?ft 



01021950 T 
01021935 T 
01021957 T 
01621959 T 
01022000 T 
309 LONG, 



0297 
0298 
0298 
030 j 
0303 
NEXT SE6 



procedure writedata(Sz*seg#ary>; % writes out type 2 segments 
value sz*Seg; 
real sz.Seg; 
array aryco); 
bestn 

INTEGER T*NSeG*I*CNTR; 

integer type; 

stream procedure m30(f,t,sz); value sz; 

BEGIN 

si «• f; 01 * t; ds * sz wds; 

END M30; 



01023000 T 0368 

01024000 T 0368 

01025601) f 0T6"8 

01026000 T 0368 

01027000 T 036JI 

01028000 T 0368 
START OF SEGMENT ******** 

01029000 T 0000 

01030000 T 0000 

01031000 T 0000 

01032000 T 0000 

010 33000 T 000 1 



37 



♦ CDALOC+NSEG) D1V CHUNK 

1; 



IF SZ > THEN TYPE * 2 ELSE SZ «■ -SZ; 
NSEG ♦ "('("" T ♦ SZ) +29) DIV 30; 
IF OALOC DIV CHUNK < I 

THEN OALOC «• CHUNK x 
PDPRftPDlRVPblC] * 

SZ&DAL0CCDKAC3 
&TYPECSTYPC3 
«SEGtSGN0C3; 
PDINX «■ PDINX ♦ i; 
IF ERRORCT » THEN 
FOR I «■ STEP 30 WHILE I < SZ DO 



BEGTN 



m30cary[i3*c0dec0)»if (sz-i) > 30 then 30 else csz-i)); 

writeccooecdaloc]); 

oaloc * oaloc + i; 



END; 



IF LISTOG THEN WRITALIST CSEGEND* 2* SEG*T» 0* 0* 0* 0, 0*0 ) ; 
TSFGSZ ♦ TSEGSZ + sZ; 

end writedata; 



37 IS 



01034000 T 
010J5000 T 
01036000 T 
01937000 T 

oTojffoinry 

01039000 T 
01040000 T 
01041000 T 
01042000 T 
01043000 T 
i 04~40 00 T 
01045000 T 
01046000 T 
01047000 T 
01048000 T 
01849000 T 
01050000 f 
01051000 T 
01052000 T 
48 LONG* 



0001 
0005 
0007 
0009 
0012 
0014 
0015 
0016 
0018 
0019 



0024 
0024 
0032 
0036 
0038 
0038 
0043 
0044 
NEXT SEG 



REAL PROCEDURE PRGOESCBLDRC DT*PRT,RELADR*SGNO ); 
VALUE DT»PRT»RELADR*SGNO; 
REAL DT#PRT*RELA0R*SGN0; 
BEGIN 
FORMAT FMTc M PRf*%A4,", REL- ADR*°» A4* M » SEG* M * 14* w * TYPE» M *A2); 



0105JOOO 

01054000 

O105SOO0 

01056000 
105 7000 

START OF SEGMENT 



0368_ 
0368 
0368 
0368 
368 



********** 



38 



END 



IF PRT-0 THEN BEGIN BUMPPRTJ PRT+PRTS END; 
PDPRTfPDlR*PDIC] ♦ 
O&DTCDTYPC] 

&prt[prtac] 

&relaorcreladc] 

ssgnocsSnoci; 
poinx ♦ pdinx + 1; 

if cooetog then wr ital 1st ( fmt, 4#b2d (prt )*b2d creiadr ), sgno* 
if 0t«6 thin w ae m else " if o't"« 1 'then ' "fo" else «ld" 7dvo » oyo ) 
prgdescbldr * prtj 
prgdescblor; 



START OF 
39 IS 



SEGMENT * 
1 3 LONG* 



38 IS 



01058000 T 

01059000 T 
01060000 T 

01061000 T 

01062000 T 

01063000 T 

01064000 T 

01065000 T 

xjyowow t 

01067000 T 

01068000 T 

30 LONG, 



********* 
NEXT SEG 
0000 
0005 
0008 
0009 
0010 

oo it 

0012 
00U 
O0T7 
0023 
0024 
NEXT SEG 



39 
38 



PROCEDURE EQUlV(R)* VALUE R; REAL R; 

COMMENT THIS PROCEDURE FIXES UP THE I 
COMMON RING. THE FIRST ELEM 
ALTER THIS) THE TYPE IS FIX 
FROM THE PIRST. CORRECTINF 
IS A NEGATIVE OFFSET ON ANY 
SET IF THE ELEMENT HAS A NE 
APPEARED In *MORE THAN ONE E 
EQUIVALENCE STATEMENT AND A 
ARE LINKED BY COMtLASTC] WH 
OF THAT "STATEMENT I" 



NFC TABLE FOR THE EQUIV OR 
ENT PAST HAS AN OFFSET (00 NOT 
ED. THE OFFSET IS DETERMINED 
ADJUST THE OFFSET IF THERE 

ELEMENT. THE INFACADJ3 BIT IS 
GATIVE OFFSET, IF THE ELEMENT 
QUI VALENCE STATEMENT OR AN 

COMMON STATEMENT THE ELEMENTS 
ICH POINTS TO THE HEADER 



BEGIN 

DEFINE 



BASS 



* LOCALS 



*> % THESE DEFINES ARE USED TO REDUCE THE 



IF 



PARMS 

PRTS 

LSTS 

LSTA 

TV 

5 Ave Subs 

NAMEIND 

LSTI 

FX1 

FX2 

FX3 

"NX! 



9> 
t, 

t> 
*> 
t, 
*$ 



% STACKSIZE OF EQUIV FOR RECURSION 



RFL 

I 

T 



LAST 

B 

P 

PRTX 

C 

INFA 

INFB 

I NFC 
LABEL XIT# CHECK ; 
DEBUfiTOG THfn FLAGROUTINEC 

if gftc(r)<o Then go to xTf" 

PUTCfR#-GETC(R)) * 

prtx «• groupprt; 
c*reaL(getc(RT;ce»i) 
last*getc(r).lastc-1 
bass«.getc<r+i>j p»o 
for I 

BEGIN , . . . - _ .,._ - ..._.. 

GETAlLCT*GETC<I).LINK#INFA»INFB#INFC) J 

IF 6*iNFC.SlZE»0 then % ~ a , simple" variable 

HiFC.SIZE * * IF INFA. SUBCLASS S LOGTYre THEN 1 ELSE Zi 



EQU M *"IV 



"*TRUE ) i 



i 



* 

i 

) 

«■' R+2 STEP I "O'NT'I L L AST 
IF 6ETCCI)tCLASS«ENDC0M 



DO 
THEN 



I*GETCCI).LINK J 



01069000 
01069100 
01069110 
01069120 
01069130 
01069140 
01069150 
01069160 
01069170 
01069180 
1069190 
01070000 
01071000 
START OF SEGMENT 
01071100 

01071200 
01071250 
01071400 
01671500 

01071600 

01071700 
01071800 
010719^0 
01072000 
01072100 
Oi0722U0 
01073000 
01073010 
01074000 
01075000 
01076000 
0T0T7W0 
01078000 
01079000 
0T08O00T0 
01081000 
01082000 
~ 0fOS30W 
01084000 



0368 
0368 
0368 
0366 
0368 
0368 
0368 
368 
0368 
0368 
0368 
0368 
0368 
********* 

0000 

0000 
0000 

0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 

0000 

0000 
0000 
001*2 
0003 
0005 
-0006 
0008 
0010 
DOIT 
0017 
0021 
13024 
0026 



40 



IF 



PUT(T+2>I 
IF INFA.S 

BflOLEA 
BFGIN 
P * 

End el 

IF INF 
8 ♦ 



seenadoub«-true; 



«■ R 
IF 



IF 



end; 

FOR T 
BEGIN 

Qetall 

IkiFAiC 
P«-B + GE 
Q «■ IN 
IF INF 
BfGIN 
BAS 
IF 
BEG 
GO 

end; 

INFA 
INFA 
INF A .T 
INFC.BASE 
PUT(T+2*I 
IF P < 
PUTCTMNF 
CHECK* 
IF P+O > 
IF P < io 

end; 

FOR I 

BEGIN) 

IF 

IF 



nfo; 

UBCLASS>LOGTYPE THEN 
N(C) THEN 
COM[Pwn.RELADD«-REl«-P ; 

p ♦ o; 

SE COM[PWi3,REUADD*REL*BASS-GETC(I).RELADD J 
A < THEN IF INFA ,ADJ « 1 THEN 
-INFC.BASE - REL ELSE B * INFC.BASE - REL; 

+2 STEP 1 UNTIL LAST DO 

GETC(I).CLASSbEnOCOM THEN I*GETCC I ) .LINK t 

(T*GETCCI).LINK*INFA»INFB#INFC) ; 
LASS m I THEN SWARYCT * U 

fee d.'reladd ; 
fc .size; 

A < THEN 

if infa .adj * 1 then bass *■ -infc .base else 

s * infc.base; 

p * bass then 

in xta «• infb ; flag(2) end; 

to check; 



IF 



4- -INFA & prtxctoaodr]; 
.class » unknown then infa 
ypefixed * 1; 

«• p; 
nfo; 

THEN INFA .ADJ * \i 

A); 

LENGTH THEN LENGTH * P+O; 
WERBOuNO -THEN" LO WERBWND * ?T 



«- R + 2 STEP 1 UNTIL LAST DO 



.class * varid; 



GET 
T*G 
IF 



C(I).CLASS«ENDCOM THEN I«-GETCC I ) .LINK ; 
ETCCI).USTC*R THEN 
GETCCtysO THEN 

BEGIN R*RlLASTl3*33li53*I[18l33ll5] ; 

EQUIV(T); LAST*R.C3Jl5]; I*R . £ 18 1 15] ; 

END ; 



R*R.[33«l5] ; 



end; 

XITI 

if de8ugt0g 
end equtv; 



THEN FLA"6R0'Ut'i"NC(" EQu"S*i'V 



'/FALSE) ) 



40 IS 



085000 
085500 

086000 
087000 
088000 
089000 
090000 
091000 
092000 
093000 
094000 

095000 
095500 



096000 
097000 

O98Q00 
099000 
100000 
J01000 
102000 
104000 
105000 
108000 
109000 
110000 

in boo 

112000 
113000 
114666 
115000 
116000 
1T7W0 
118000 
119000 
j g 0o - go 

121000 
122000 
T22500 
122550 
122600 
122656 

123000 
124000 
124010 
125000 
32 LONG* 



0031 
0032 
0036 
0036 
0041 
0042 
0052 
0054 
0059 
0060 
0064 

0068 
0071 

00 7 3 

0076 

007J 

0078 

0081 

008 3 

0084 

0086 

0086 

0086 

0088 

0092 

0094 

0095 

0096 

W99 

0100 

OiOl 

0104 

0106 

0106 

6116 

0110 

0U4 

0117 

0118 

0121 

0126 

0126 

0126 
"0127 

0129 
NEXT SEG 



alpha Procedure getspacecs); value s; alpha s; 

BEGIN LABEL-^fUUS* FMjNUS, xi.TJ 



LABEL DONE; 
REAL A; 

boolfan ownid; 

IF OwNID * S < 



THEN S * -S; 



start 



% IN DATA STMT* THUS OWN 



01126000 
01127000 
OF SEGMENT 
01128000 
01129 000 
01129100 
01129200 



T # 0368 
T._j0368 
********** 

T 0000 

T 000 

f 0000 

T 0000 



41 



V 



IF A «- GET(GETSPACE*S) < THEN GO To DONE; 

IF AlCLASS GEQ 13 THEN FLAGC34) ELSE 
CASE A. CLASS OF 
BEGIN 
BEGIN 

PUTCS*A*A«VARID[TQCLASS3)J 

PUT($+2»(GET(S*2) &CIF A, SUBCLASS i LOGTYPE 
THEN 1 ELSE 2 >[f bSiZEJ ) ) * 

end; 

if booleanca. formal) then bumplocals; 
; 

BEGIN A.TYPEFIXED * 11 GO TO RPLUS END; 

GO TO RPLUS; 

GO TO Rplus; 

go to dqne; 

begin a.typefixed «• 1) if booleanc a. formal ) then go to fminus 

else go to rplus; 
end; 

begin a^typeflxed * u go to rplus end; 
if bqolfanca. formal) then go to fminus else go to rplus; 
if 800lfanca. formal) then go to fminus else go to rplus; 
go to rplus; 
go to rplus; 
end of case statement; 



A.TYPEFIXED «• i; 

IF BOOLFANCA. FORMAL) THEN 

GO TO FMINUS; 
IF BOOLfAN(A.CE) OR BOOLEANCA, EQ) THEN 
BEGIN 

PUT(S»A); 

callfquiv(a.addr*ownld»get(s+d) ; 
go to done; 
end; 

A.TWflD ♦ REAL(GETCS + 2).SIZE > 1023); 
FMINUSI 

if own id then begin" bumpprt; a, ador*prts End ' else 

begin bumplocals; a.addr * locals +1536 end; 
if alclass « varid then if a. subclass i ooubtype then 
if ownid thfn~ bumpprt else 
bumplocals; 
go to xitj 

RPLUSl 

bumpprt; a.addr*prts; 

XITJ 

puT(s# -a)"; 

DONEl 

end get§pace; 






1130000 T 





1130500 c 





L131000 T 





1132000 T 





1133000 T 


0! 


1134000 T 





1135000 T 


0' 


t 136000 T 





LI 37000 T 


01 


1138000 T 


01 


1139000 T 


01 


1140000 T 


o; 


1141000 T 


0] 


1142000? 





1143000 T 


05 


L144000 T 


05 


11 45000 "?' 


0! 


L146000 T 


0] 


1147000 T 


05 


1148000 T 


0] 


149000 T 


Oj 


1150000 T 


01 


L 151000 T 


0] 


152000 T 


start of segment ** 


42 IS 


14 LONG, 


01 


.153000 T 


03 


L154000 T 


'"'"'■01 


nwoiro f 


01 


.156000 T 


01 


L157000 T 


01 


1158000 f 


01 


.159000 T 


03 


1160000 T 


01 


1161000 f 


01 


1162000 T 


03 


1163000 T 


Oj 


163100 T 


01 


.164000 T 


01 


.165000 T 


0] 


165100 T 


01 


.166000 T 


01 


167000 T 


0] 


fl 68000 f 


03 


.169000 T 


01 


,170000 T 


' U1 


I7i0"015 f 


01 


172000 T 


01 


173000 T 


41 IS 


94 LONG, 



0002 


0005 


0008 


0009 


0009 


0009 


0012 


0015 


0017 


0018 


0023 


0023 


0026 


0077 


0027 


0028 


0036 


0031 


0032 


0034 


0037 


0039 


0039 


0040 


******** 42 


NEXT SEG 41 


0040 


0042 


00ft> 


0044 


0045 


" ao«6 


0047 


0050 


0056 


0050 


0054 


0055 


0061 


0067 


0070 


0075 


0081 


0082 


0083 


0088 


0OT9 ~ 


0090 


0091 


NEXT SEG 6 



INTEGER STREAM PROCEOURE L8LSHFTCS); 
BEGIN" 

local t; 



value s; 



01174000 T 0368 

~OtT75000 T 0T8T 

01176000 T 0368 



LABEL Li 

DI «■ LOC LBLSHFT; DS ♦ 8 LIT "00 n ) 

DI * 01 - 6' SI *LOC s; SI * Si ♦ 2j 

tally «• \) t * tally; 
5(t(if sc«"0" then begin si + simj jump out i to l end 
else tally*o; utallyj; 

if sc>"0" then ds*chr else if sc* w " then si*si+1 

ELSE JUMP OUT) Ll ) I 

IF SC t " " THEN BEGIN DI ♦ LOC LBLSHFTJ OS * LIT "♦" END; 

ENO lblshft; 



Ql 17.7.0.00. 

01178000 

01179000 

01180000 

Oil 81 000 

01182000 

01183000 

01183100 

01184000 

0H85000 



0368 
0368 
0369 
0370 
0370 
0373 
0374 

0376 
0379 
0360 



COMMENT EMITTERS AND CODE CONTROL; 
ALPHA PrOCEDURF 82DCB); VALUE BJ REAL B.J 

B2D ♦ 0&Bt«5u5»334BC39t42l3]*BC33»39l3]«BC27l36t3]; 



01186000 T 0381 

01187000 T 0381 
1188000 T 0381 



PROCEDURE DEBUGCS); 

value s; real s; 

BEGTN 

FORMAT FFCX35,*(33( , V , ))#A4#'M«,A1»2<X2#A4),X4,A4) ; 



% PRINTS OUT DEBUG CODE 

% IF S<0 THEN S IS FIELD TYPE OPERATOR 



alpha code#mnm#syl; 

REAL T; 

procedure search(CODE,s>; value s; real s,code; 
begin % searchs wop to fin0 code for s 

REAL N*i; 

LABEL L; 

N *■ 64; 

for i * 66 step if wopcij < s then n else -n 

WHILE N »"N" 0lV""2 i'l DO 

if woptn "8 then go to l; 

I «• 0; % NOT FOUND 

Li code * woPtun; 

END SEARCH; 



01189000 T 

01190000 T 

01191000 T 

0H92000 T 

START OF "SEGMENT * 

START OF SEGMENT * 

44 IS 18 LONG* 

01193000 f 

01194000 

01195000 

01196000 

01197000 

START OF SEGMENT 



45 IS 



01198000 
01199000 
01200000 
01 201 000 
01202000 
01203000 
01204000 
01205000 
16 LONG, 



0389 
0389 
0389 
0389 

********* 
********* 

NEXT SEG 

Oooo 

0000 
0000 

oooo 
oooo 

********* 

oooo 
oooo 
oooo 

0005 
0009 
0011 
00 li 
0013 
NEXT SEG 



43 
44 
43 



45 



43 



IF S < THEN 
BEGIN X FIELD TYPE OPERATOR 

sy'l * s; 

MNM ♦ B2D(S,[36I6]); 

IE...1S «■ S, .t*2i6 3JL ■-17. . TJ4EA. CODE . t "ISO « XL.SE 

IF S a 45 THEN CODE * "DIA " ELSE 
IF S • 49 THEN CODE * "DIB " ELSE 
IF S m 53 THEN CODE * M TR8 "I 



END 



01206000 T OOOO 
01207 000 T OOOO 
01208000 "f 000 i 
01209000 T 0002 
01210000 I— OflOJL 



ELSE 



01211000 T 0006 

01212000 T 0011 

01213000 T 0015_ 

01214000 f 0019 

01215000 T 0019 



m 



BEGIN 

IF <T * S.t»6'l21) * 1 THEN 

begin 

SYL * Si 

MNM * B2D<S,t36llO])| 

IF T « THEN CODE * "L.ITC" 

ELSE IF T »2 THEN CODE * "OPOC" 

ELSE CODE «- "DESC"; 
END 

ELSE 
BEGIN % SEARCH WOP FOR OPERATOR NAME 

SYL *SJ 

mnm * * "j 

SEARCH(CODE»S. [36110]); 
ENOJ 
END; 

WRITALISTCFT,6,1F aOrSDEBUGAOR THEN 1 ELSE 

B20(ADR,t46l2]),C00E,MNM,B2D(SYL 

if oebugadr<adr then debugadr*adr ; 
end debug; 



•l#B2D<ADR,C36iiO])# 
}#0»0) ; 



01216000 
01217000 

01218000 
01119000 
01220000 
01221000 
01222000 
01223000 
01224000 
01225000 
0122*000 
01227000 
01226000 
01229000 
01230000 
01231000 
OT 2 3 20013 
01233000 
01233100 
01234000 



T 
T 
T 
T 
T 
T 
T 
T 
T 
T 

"f" 
T 
T 
T 
T 
T 
T 
T 
T 
T 



0019 
0021 

0022 
0023 
0024 
0025 
0027 
0031 

0034 
0034 
0034 
0037 
0037 
0036 
0040 
0040 



43 IS 54 LONG, 



0044 
0046 
0050 
NEXT SEG 



PROCEDURE DEBUGWORD(N); VALUE Ni REAL N; SPRINTS OUT €♦ CONSTANTS 
BEGIN 

STREAM PROCEDURE WB20(F*T); 

BEGIN 

01 ♦ t; 

DT+Di+35; DS*iOLIT"CONSTANT * ; 

si «• f; 

16(ds «• 3 reset; 3cif sb then ds •• set 

else ds ♦ reset; 
skip sb)); 

END WB2D; 



START 



01235000 


T 


0389 


01236000 


T 


0389 


01237000 


T 


0389 


OF SEGMENT 


****** ***' 


01238000 


T 


0000 


01239000 


T 


0000 


01240000 


"f" 


0000 


01241000 


T 


0002 


01242000 


T 


0002 


01243000 


T 


0003 


01244000 


T 


0004 


01247000 


T 


0005 



46 



ARRAY AC0I14]; FORMAT F(X63*"(DEC "#B>")«> ; 



01248000 
START OF SEGMENT 



WRITE(AC*]#F,N); WB2D(N,A) ; 
WRITAR0W(15»A) ; 

end debugword; 



47 IS 



46 IS 



T LONG, 

01249000 T 

01250000 T 

T31?5TOW f 

23 LONG, 



T 0005 
********** 



NEXT 

0007 

0017 

0OT9 
NEXT SEG 



47 
46 



REAL PRffCEDUPT 13 ITU); * RETURNS OPERATOR tNSTLLABtE Z 

VALUE Z; REAL It 
BEGIN 

INTEGER STREAM "PROCEDURE ""GT CS> SKP >T V ALUE TRP; 



Ot 2 5 2 T "0 3 $9 ~ 

01253000 T 0389 
01254000 T 0389 
UT255CT00~f -0"3T?T 
START OF SEGMENT ********** 



48 



» • 



. * 



m 



BEGIN 

SI ♦ $> SKPCSI ♦ SI ♦ 2}) 

di *■ loc gtj di ♦ di + 6} os * 2 chr; 

end gt; 



GIT * GT(EDOc[Z,[36l3]»Z.C39l7]3»Z,t«6l23); 
END GIT; 



WHM8H 8888 



01258000 T 
01259000 T 



01260000 
01261000 



REAL STREAM PROCEDURE SPCLBIN2DEC (N ) ; VALUE N t 
BEGTN LOCAL "LI LABEL Bit 

DI*lOC Li SI*LOC NJ DS*8DEC; SI*L0C L* TALLV*8 J 
IF 5Cs w 0" THEN BEGIN T ALLY*TALLY+63; SI*SIMJ GO Bl END ; 
OI*lOC SPCLBlN2bEc; DUDI + 2; DS+6LIT" " i DI«-DI-6; HUTALLYJ 
END OF SPCLBIN2DEC ; 



Bl I 



DS*N 'CHR';" 



48 is " i i "uONCfi 



01261100 T 
01261 no T 
01261120 T 
01261130 T 
01261140 f 
01261150 T 



STREAM PROCEDURE PACK(T#F,SKP); VALUE SkP,F; 
BEGIN % PACKS OPERATORS INTO EOOC 

si * LOC f; si «• si + 6;di * t; skpcdi «■ dj. ♦ 2); 
ds ♦ 2 chr; 

END PACK; 



procedure emitocnt; value n; real n; 

begin 
bumpadr; 

'f»"A c'R'^"f?'BT3"CTE'nrd^n~3"*"t n* ilNT"3"5"t"3"B1'i'0"K 'J"#"*"015l ^ f *'5~t~Z"TTJ 

IF codetog then debugcn); 
end emito; 



01262000 f 
01263000 T 
0126,4000 T 

'0iZ630Q0~T 
01266000 T 



01267000 T 

01268000 T 

01269000 T 

012TT315T5O T 

01271000 T 

0J272000 T 



0001 
0002 



PROCEDURE EMlTNCP); 

begin label xit; 



VALUE P; REAL Pi 



A I DU A Si 

IF S ♦ GET(P) > THEN S * G£T(GETSPACE< P) ) ; 
IF SICLASS * VARIO THEN IF BOOLE AN ( S. CE ) THEN 

IF BOOLEANCS.TWOO) then 

BpGIN 

EM ITU CTVGEtCP*2).BASE)*C33«7J); 

emitdesclitcs,addr); 

EMlTOfLOD)i 
EMITLCT .140*8 3 )l 

EMITO(CDC); 



01273000 
01274000 
START OF SEGMENT 
01275000 
01276000 



0003 
0008 

nExt~seg 



0389 

0389 

0390 
039J 

039 3 

0396 



0397 
0397 
0398 
0400 
0400 



0^400 

0400 
0400 
0W~3 
0409 
0410 



T 0412 
T 0412 

********** 



49 



01277000 
01278000 
0% 279000 
61280066 
01281000 
01282000 
6~1 283000 
01284000 



0000 
0000 
0004 
0006 
0007 
0008 

oou 

OOj.3. 

00~13 

0015 



go to xitj 
end else 

EmITNUM(6ET(P+2),BASE) 

else 

if not boolean<s,formal> then if not oescreq then 

begin 

EMlTLf S*S,ADDR); 

IF S.C37I2J * 1 THEN XREFERENCING 2ND HALE OF PRTJ 
BEGIN 
IF AOR * 4087 THEN 

BEGIN ADR * ADR+i; SEGOVF END* 

EMITO(XRT); 

END* 

go to xn; 

End; 

EMlTOESCLlT(S f ADDR); 
XITI ' 
END EMItNJ 



49 IS 



01285000 T 


0015 




01286000 T 


0016 




01287000 T 


0016 




01288000 T 


0019 




01289000 T 


0019 




01290000 T 


0021 




01291000 T 


0022 




01 2920^0 T 


O024 




01293000 T 


0025 




01294000 T 


0025 




OT29~5W0~T 


0026 




01296000 T 


0028 




01297000 T 


0029 




0T2V80U0 Y 


O0J9 




01299000 T 


0031 




01300000 T 


0031 




01301000 T 


0032 




01302000 T 


0033 




36 LONG* 


NEXT SEG 


6 



PROCEDURE EMITVCP)* VALUE P; ALPHA ?} 
BEGTN 
ALPHA S; 



IF S ♦ GET(P) > THEN S * GETCGETSPACEC P ) ) ; 

IF SlCLASlTi VARID" THEN 

IF B00LEAN(8,CE) THEN 

IF BOOLEAN(S.TWOD) THEN 

BEGIN "" ""' 

EMITLC CT*GET(P+2).8ASE).C33173); 

EMITDESCLIT(S.ADDR); 

EMTTUTL0D77 

if s. Subclass z ooubtype then 

BEGIN 

" EHiTOToupyr 

EMITPAIR(T.[40J8] + 1# COC)J 
EMITO(XCH); 

EMlfPAlR(f.t40«83# COO; 
END ELSE EMITPAIRCT,C40I83# COOJ 

INO _ 

ELSE 

IF S. SUBCLASS > DOUBTYPE THEN 

BEGI.N_ 

EMITNUMC CT*GET{P + 2),8ASEUi); 
EMITQPOCLITCS.ADDFOJ 
fMIJNUM(T); 
EMiTOPDCLitcS.AODR); 
END ELSE 
BEf I N 

lMlfNUMtGETtP + 2)V^ASEli 

EMITOPDCLITCS.ADDR)* 
END 
ELSE 
IF S. SUBCLASS > DOUBTYPE THEN 



01303000 T 

01304000 T 
0T305W0 f 

START OF SEGMENT ** 

01306000 T 
" 01T070WY - 

01308000 T 

01309000 T 

01311000 T 

01312000 T 

01 313000 T 

01314000 T 

01315000 T 

Oi3T"6XJ01TT 

01317000 

01318000 

0T3lW0~0 

01320000 

01321000 



1322000 

01323000 

01324000 

"013250W 

01326000 
01327000 



01328000 
01329000 
01330000 
OT33TMO 
01332000 
01333000 



01334000 T 
01335000 T 



0412 

0412 

"Wf8 " 
******** 

0000 

ooor 

0005 
0006 

aoor 

0008 
0011 
00 T 3 
0013 
0015 
0T)15 

0016 

0018 

O019 

0020 

0022 

0022 

0022 

0024 
"OWS 

0028 

0029 

0036 

0031 

0031 
U0T2 

0034 

0035 

0035 

0035 



50 



IF B00LEANCS*FQRMAL) THEN 
8FGIN 

EMITDESCLIT(S.ADDR); 

EMITO(OUP); 

EMITPAIRC1* XCH); 

EMITOMNX)i 

EMlTOfLOD); 

EMITOCXCH); 

EMITO(LOD); 

End else 
bfgin 

emitqpdclitcs.addr+i); 

emitopoclitcs.addr); 

EmD 

Else emitopdclitcs.addr) 
else emitopdclit(s.addr); 
end emitvj 



50 IS 



01316-00 AT 
01337000 T 
01338000 T 
01339000 T 
01340006 T 
01341000 T 
0134£500 T 
01343066 f 
01344000 T 
01345000 T 
01346006 f 
01347000 T 
01348000 T 
"0"i"3T9OT(T'T" 
01350000 T 
01351000 T 
01352006 f 
55 LONG, 



Q_Q17 
0038 
0039 
0040 
004 i 
0042 



0043 
0044 
0045 
0045"" 
0045 
0047 
0048 
0048 
0049 
0052 
NEXT SCO 



PROCEDURE EMITLCN); VALUE N! REAL H) 
BEGIN 
BUMP aDR i 

PACKCEDOC [EDOCI 3# CN*04N t 36 t 38 » i'6] )/ADR, [46 I 23 ) ; 
IF CODETOG THEN DEBUGCN)J 
END EKITLJ 



01353000 
01354000 
0J355000 
01356666 
01357000 
Ox 358000 



T 
T 
T 
T 
T 
T 



0412 
0412 
0412 
0414 
0420 



PROCEDURE EMlTDfR* OP)l VALUE R» OP* REAL R> OP* 
BEGIN 

bumPadr'j 

PACK(EOOCCED0Cn# (R ♦ OP & RC36»42163)> ADR,[46t23)j 
IF CflDET06 THEN DEBUGC-R); 
END EM I TO J 



01359000 T 0423 

01360000 T 0423 
01361006 t 0423 

01362000 T 0425 

0.1-163000 T 0431 

01364666 f 0432 



PROCEDURE EMlT00TCB»A,X)J_ VALUE B*A#X) jNTEGER B#A*X i 

"BEGIN X DOES "DTI "ST " DI A 'TT'TRB X J H a NO L E 3 " "[ B "» 71 XTi 

EmItD(B«-B MOD 6+B DlV 6x8#DIB); EMITDCA*A MOD 6 + A DlV 6x8*DU> I 
EMJTD(X«-X»TRB) i 
END OF EMITDOT I 



01364010 
01364020" 
01364030 
Ol364j035 
01 364040 



T 
._. 

T 

T 
_ 



0434 

0434" 

0434 

044J 

0442 



PROCEDURE EMITPAIRCL* OP); VALUE L* QPJ INTEGER L» OP* 
BEGIN " 

EMITLCDJ 

If lltSTJV * 1 THEN 

BEGIN 
IF AOR * 4087 THEN 



01 36500 T _04_42 

01366000 T 0442" 

01367000 T 0442 

01368000 T 0443 

01369000 T 0445 

01370000 T 0445 



w 



BfGIN aor ♦ 

emito(xrt); 

END* 

EMTTn(OP); 
end emitpair; 



AOR+W SEGOVF END; 



01371000 
01372000 
01373000 
01374000 
01375000 



0446 
0448 
0449 
0449 
0450 



PROCEDURE ADJUST) 

WHILE ADR.C46I2] *3 DO EMITQ(NOP); 



01376000 T 0452 
01377000 T 0452 



PROCEDURE EMITNUM(N); VALUE NJ REAL Hi 
BEGIN 

DEFINE CPLUS « 1792#; 

IF N.C3«63 *0 AND ABSCN) < 1024 THEN 
BEGIN 

EMITLCN); 

IF N < THEN EMITOCSSN); 
END ELSE 
BEGIN 
IF ADR > 4079 THEN 

BEGIN ADR * ADR+1J SEGOVF END; 

EMITOPDCLITCCPLUS ♦ ( ADR + 1 ) , [ 46 1 1 ] + 1); 

EMITLC2); 

emito(gfw); 

adjust; 

bumpadr; 

PACK(ED0CtED0Cn#N,Cllll]*ADR,[46t2]); 

bumpadr; 

PACK(Fb0CtE00Cl]»N.U2«l2 3#ADR.C46l25}; 

bumpadr; 

PAC.K(£D0CCED0cn»N,C24ll23# ADR t t 46123); 

bumpadr; 

PACK(ED0CCED0CI3#N.t36U2],ADR.t46«23); 

IF N,r36«123«49 THEN %%% IF C-REL CONSTANT LOOKS LIKE AN XRT 
EMITOCNOP) > %%% THEN INSURE AGAINST P-BIT INTERRUPT, 

IF CODETOG THEN DEBUGWORD( N); 
END; 

End emitnum; " " ~" ~ " 



01378000 
01379000 
01380000 
START OF SEGMENT 
01381000 
01382000 
01383000 
01384000 
01385000 
01386000 
01387000 
01388000 
01389000 
1390000 
01391000 
01392000 

01393000 
01394000 
01395000 

Oi39~6ocro 

01397000 
01398000 
Of 399000 
01400000 
01400400 

"01400600 

01401000 

01402000 

" OiWJOTJO 

51 IS 51 LONG 



T 0455 
T 0455 

T 0455 

********** 



0000 
0002 
0003 
0003 

OOO5 

0005 

oooe 

0008 

0011 

0013 
0014 
0015 

0015 
0018 
0022 
0025 
0029 
0032 

0036 
0039 
0043 



51 



0046 
0047 
0047 
NEXT SEG 



PRO C rOUfff" EWITNUW2 tHl # CO nVA-L Ut H I »L0 J RE A L H I * L 01 " " " 

BEGIN 

BOOl EAN B; REAL I»N; 

LABfL Z»X ; 

DEFINE CPLUS ■ 1792#; 
IF Hf«0"-OR X0«(5 THEN BEGIN EMI TNUMrLQ); EWTNUM<HT5* GO Z 

adjust; 



-Ot4trtWO-T -0455 



TTART 



01405000 
0140 6000 

01407000 

01408000 

"OT4U8T0O 

01409000 



T 0455 
T 0455 

-***#***#*'*"' 

T 0000 

I 00 °0_ 
T " 0000 

T 0004 



52 



#♦ » 



£ lXf\J7 THEN 

eg in aor*adr+i; segovf; 
mitopoclikcplus + 2); 

MlTPAlR(3#GpW); 

OR I * STEP 1 UNTIL 3 



IF ADR 
B 

E 

E 
X» F 

beg?n 

case i of begin 



ADR«--1 END ; 
EMITOPDCLITCCPLUS 

DO 



♦ d; 



«■ 



END 



N 
N 
N * 
N V 

case; 



hi • c him; 

HI.C12*123J 
HI.C24I12]; 
HI, t 36 1 12]; 



BUMPADR; PACK(ED0CtED0Cl]*N#A0R,C46l2]); 



END; 



z« 



IF CODETOG THEN 0EBU # GW0R0< HI ); 

IF NOT B THEN BEGIN B*TRUE; HI*LO; GO TO x; END; 

IF N»49 THEN XXX IF C-REL CONSTANT LOOKS LIKE AN XRT 

EMITOfNOP) ; XXX THEN INSURE AGAINST P-BIT INTERRUPT. 



END EMITNUM2; 





01410000 T 0004 
014T1000 T 0005 




01412000 T 0008 




014^3000 T OOli 




0141S000 "'f 0012 




01416000 T 0016 




01417000 T 0016 




01418000 T 0016 




01419000 T 0018 




01420000 T 0020 




01421000 T 0022 




01422000 T 0023 




START OF SEGMENT ********** 53 




53 IS 5 LONG* NEXT SEG 52 




01423000 T 0024 




01424000 T 003Q 




01425000 T 0033 




01426000 T 0034 




01426400 T 0039 


» 


01426600 T 0039 




01426650 T 0041 




01427000 T 0041 




52 IS 44 LONG, NEXT SEG 6 



PROCEDURE EMITLINKCN); VALUE NJ REAL NJ 
BEGTN 

FORMAT FF(X35,*C33<'V , )),A4,"t",Al," 



X EMITS LINKS 

LlNK",X10#A4, "******") 



END 



bumpadr; 

PACKCED0C[ED0Cn,N,ADR.C46i2]); 

IF CODETOG THEN 

WRITALIST(FF#4,IF ADRSDE8UGADR THEN 1 

B2dCADR.C46*23),B2DCN),0,0,0,0) 
IF OEBUGADR<ADR THEN debugadr*adr ; 

emulink; 



ELSE •l»B20(A0R i C36ll03), 

; 



01428000 

01429000 

01430000 

START OF SEGMENT 

STARTUP SEGMENT 

55 IS 16 LONG, 

01431000 T 

014 32000 

01433000 

01434000 

014 35000 

01435010 

14 36000 



54 IS 19 LONG 



T 0455 

T 0455 
T 0455 
********** 

********** 
NEXT SEG 
0000 
0002 
0006 
0006 
0012 
0015 

.0017 ... 
NEXT SEG 



54 
55 
54 



PROCEDURE EMITST0RE(IX» EXP); VALUE IX# EXP; REAL IX# EXP; 
BEGIN 

REAL E, VT; 

P ♦ REALCERRQRtOG); 

errortog * false; 

e ♦ get(getspacecix) )j 

IF NfjTC (Vt ♦ E. SUBCLASS) « LOgTyPE EQV EXP '"• LOGTYPE) OR 
NnT(VT * COMPTYPE EQV EXP ■ COMPTYPE) THEN 
BEGIN XTA ♦ GET<IX+1); FLAG(86) END; 

IF eTcLASS - VARID THEN 

BEGIN 



START 



01437000 


T 


0455 


01438000 


T 


0455 


01439000 


T 


0455 


OF SEGMENT 


******** 


01440000 


T 


0000 


01441000 


T 


0000 


01442000 


T 


oooi 


01443000 


T 


0003 


01444000 


T 


0006 


01445000 


T 


0008 


01446000 


T 


ooii 


01447000 


T 


0012 



56 



5K 



IfBOOLEANCC. FORMAL) OR BQQlEANCE.CE) THEN 

BFGIN 

IF VT < LOGTYPE THEN 
BEGIN 

IF VT * INTYPE AND EXP 2 REALTYPE THEN EWTTPAlRCi, IDVOI 

EMTTNCIX)* 

EMITOCIF VT * INTYPE THEN ISO ELSE STD); 

IF EXP 1 DDUBTYPE THEN EMITOC DEL); 

ENO ELSE 
BEGIN 

EMlTNClX); 

EMITPAIRCJUNK, STN); 

EMlTOCSTO)J 

IF EXP < DOUBTYPE THEN EHITLCO)? 

EMITL(l); 

EMITPAIRCJUNK, LOD); 

EMlfbUNX')) 

EMTTO(STD); 
END 

end else 
bfgin 

if vt * intype and exp * realtype then emitpairc1' idv); 

EMITPAIRCE.AODR' IF VT * INTYPE THEN ISO ELSE STOJ? 
IF VT S LOGTYPE THEN 

IF EXP 2 DOUBTYPE THEN EMITOCDEL) ELSE ELSE 
BEGIN 

IF EXP < DOUBTYPE THEN EMITlCO); 

EMITPAIRCE.ADDR+I* STD); 
END 



ARRATiD THEN 



ENO 
END FLSE 
IF E. CLASS 

BEGIN 

IF VT 5 LOGTYPE THEN 
BFGIN 

IF 

IF 



VT • INTYPE ANO EXP 
EXP i DOUBTYPE THEN 
BEGIN" 

emitqcxch); 
emito(del); 
end; 

emito(xch); 

emitocif vt * intype then 
end else 
bfgin 

if exp 2 doubtype then 

BEGIN 

EMITPAIRCJUNK, STD); 

EMlTOCXCH)j 

EMITOPbCLlTCJUNK); 

emitocxch)) 
emitpaircjunk* stn); 
emitO(STD); 
emitlcd; 
emitpaircjunk, loo); 

EMfTOMNX); 

emitocstd); 



2 REALTYPE THEN EMITPAIRC1* IDV); 



ISO ELSE STD); 



81228888 


? 


88ii 


01450000 


T 


0015 


01451000 


T 


0016 


OI43700D 


T 


0016 


01453000 


T 


0020 


01454000 


T 


0020 


01455000 


T 


0023 


01456000 


T 


0025 


01457000 


T 


0025 


01 455000 


T 


TJ076 


01459000 


T 


0026 


01460000 


T 


0027 


OT*T61000 ~T 


0028 


01462000 




0030 


01463000 




0031 


01746 41500 




0032 


01465000 




0033 


01466000 




0033 


01467000 




0033 


01468000 




0033 


01469000 




0034 


O14T0TJ00 




0037 


01471000 




0041 


01472000 




0041 


014T30O0 




0044 


01474000 




0045 


01475000 




0047 


"~ TJT4T6000 




00*9 


01477000 




0049 


01478000 




0049 


0157 90W 




0049 


01480000 




0051 


01481000 




0051 


01412000 




0^)52 


01483000 




0052 


01484000 




0056 


OT415W0 




0056 


01486000 




0057 


01487000 




0058 


01488000 




0058 


01489000 




0038 


01490000 




0059 


01491000 




0062 


01492000 




0062 


01493000 




0062 


01 494000 




006 3 


01495000 




0064 


01496000 




0065 


01497000 




0065 


01498000 




0066 


01499000 




0067 


01500000 




0058 


01501000 




0069 


01502000 




0069 


0T5TTJOOO T 


XrOTO" ~ 


01504000 


T 


0071 



END ELSE 
BEGIN 

EMITO(XCH); 

EMITPAJRCJUNK, STN); 

EMITO(STD)! 

EMITLCO)^ 

EMITUCD^ 

EMITPAIR(JUNK, LODH 
EMITOCINX); 
EMiT0(5T0)J 
END 
EmO 
END FLSE BEGIN XTA ♦ GET(IX-U); FLAGC49) END) 
ERRORTOG * FRRORTOG OR BOOLE AN CP j jl ' 

end emitstore; 



qisosooq 

01506000 
01507000 
01508000 
Oi 509000 
01510000 
0).5U000 
01512000 
01513000 
015U000 



56 IS 



Ol5l 

01516000 
015J7000 
61518000 
01519000 
86 LONG, 



0572 
0072 
0072 
0073 
0074 
0075 
007ft 

0076 
0077 
0078 



0079 
0079 



0083 

next seg 



PROCEDURE EMITBCA,C)J VALUE A*CJ REAL A; 
BEGIN CnMMENT GENERATES LlTC AND BRANCH 
IF THE BOOLEAN C IS TRUE THEN THE BRANCH 
TRUE IF THE BRANCH IS BACKWARDS; 
BOOLEAN BEOREF; 



BOOLEAN c; 

FROM CURRENT ADR 

IS CONDITIONAL. 



TO ADDRESS 
BEOREF IS 



REAL SEG; 
IF AOR * 4086 THEN 

bfgin adr * AOR+i; segovf End; 

IF A < THEN 
BEGTN 

IF BRANCHX>LBRANCH THEN FATALC123) 
BRANCHX *■ BRANCHEStLAX*BRANCHX]; 
BRANCHESCLAX] * -UDR + 1); 
EMITLINK(O)' 

EMiTotiF c then bfc else bfw); 

EMITOCNOP); 
END ELSE 
BEG7N 

seg *■ a. segno; 
a ♦ a. link; 
beoref ♦ adr > a; 
if a.c46i2j »0 then 

BEGIN 

IF SEG > AND SEG X NSEG THEN 
EMIT0PDCLIT(PRGDESCBLDRC2» 

ELSE 

EMlTL(ABS(CADR*2).C36«lO] 

IF BEOREF THEN 

EMlfOC IF C THEN GBC ELSE 

EMlTOf IF C THEN GFC ELSE 
END ELSE 
BEGTN 

EMITLCABSCADR + 3 • A)>> 

IF BEOREF THEN 

emitoc if c Then bbc else bbw) else 

EMITOCIF C THEN BFC ELSE BFW); 



0* A.C36I10J, SEG)) 

A, [361 ion); 



GBW) ELSE 
GFW); 



01520000 T 0455 

01521000 T 0455 

01522000 T 0455 

01523000 T 0455 

01524000 T 0455 

START OF SEGMENT 

01525000 T 
01526000 T 
6 1 52 f 000 i"f" 
01528000 T 
°t52?000 T 
01 530000 ~T 
01531000 T 
01532000 T 
01533006 t 
01534000 T 
01534100 J 
15350190 T 
01536000 T 
01537000 T 
01538000 t 
01539000 T 
01540000 T 
01541000 f 
01542000 T 
01543000 T 
Oi 544000 ""t" 
01545000 T 
ISA 60 00 T 
01547000 f 
01548000 T 
01549000 T 

01550000 T 
01551000 T 
PJ552J0OO T 
01553060 f 
01554000 T 0040 



********** 
0000 
0000 

6666 
0003 
606J 
0004 
0006 
0007 
0609 
0010 
0012 
00i3 
0013 

0015 
6616 
0017 
0018 



57 



0020 

0022 

0024 

0025 

6028_ 

0029 

0031 

0034 

0034 

0035 

0037 



ENDJ 

end; 
end emitb; 



37 



01555000 T 
01556000 T 

01557000 T 
IS 45 LONG* 



0042 
00*2 

0042 

NEXT SEG 



PROCEDURE EMITOESCLIT(N)) VALUE Nl REAL N; 
BEGTN 

IF N.C37J23 «'"i THEN 
BEGIN 
IF ADR * 4087 THEN 

BEGIN ADR *• ADR + 1J SEGOVF END* 
EMITO(XRT); 
END* 

bumpadr; 

PACK(EDOCCEDOCI3*(N*3*NC36«38llO])#ADR.t46t23); 

if cooetog then debug(n); 
end emitdesclit; 



01558000 
01559000 
01560000 
01561000 
015 6200 
0T563WCT 

01564000 
01565000 
01566000 
01567000 
01568000 
01569000 



T 


0455 


T 


0455 


T 


0455 


T 


0457 


T " 


0457 


T 


451 


T 


0460 


T 


0461 


T 


046"l 


T 


0464 


T 


0469 


T 


047i 



procedure emitopoclitcn)* value nj real nj 

begtn -- •-- 

IF N. [37123 = 1 THEN 
BEGIN 
IF ADR2: 4087 THEN 

iEGIN AOR * ADR+ll SEGOVF ENOJ 

EMITOCXRTW 
END J ~ " 

bumpadr; 

PA£K<£00CtEDpCj3f <N*2«NC 361 381 103) #AOR t £46123)1 

if codetog Then o~ebugcn)T 

END EMlTOPDCllTJ 



01570000 


T 


0474 


Ol57Tt)00 


T 


04T5 


01572000 


T 


0474 


01573000 


T 


0475 


01574000 


T 


0475 


01575000 


T 


0476 


01576000 


T 


0478 


0157T000 


T 


0479 


01578000 


T 


0470 


01579000 


T 


0482 


Oiyeffoeo 


T 


0487 


01581000 


T 


0489 



PROCEDURE EmITlABELDESCCN); VALUE NJ ALPHA NJ 01TB2UOTJ 

BEGIN 01583000 

L.ABEL XITJ 01584000 

START 6F""5EGWenT 

REAL T,B,C,D J 01585000 

IF N ♦ L8_LSH_FT(XTA*N) * OR N ■ BLANKS THEN 01586000 

BEGIN FL A §( 1 35 ) J GO TO X IT Tn'O "i ~ " " " " " 01587000 

IF T * SEARCH(N) * THEN 01588000 

T * ENT_ER(0_4 LABELIDCT0CLASS3* N) ELSE 01588100 

IF OEfCf ). CLASS jr LaBELID THEN " " 0T588200 

BrGIN FLAG(144); GO TO XIT END* 01588300 

IF XREF THEN ENTE_RXJN^0SLABELIDCT0CLASS3)J 01588400 

IF B *{C»6ET<T*2)).BASE"«0 THEN ~ "~0TH9UW 

IF (D*GET(T)).SEGN0^0 THEN C .BA5E*B*PRG0ESCBLDR< 2# 0*0. ADOR OIV 4 f 01589010 

D. SEGNO) ELSE 1589020 

BEGIN BUMPPRT; C ,BASE*B*PRTS END/ PUfCT+2#cT; ~ 01590000 

EMITL(B)i EMITOCMKS); 01591000 



T 0492 

T 0492 

T 0492 

T 0000 

T 0000 



56 



T 


0004 




T 


0005 




T 


0007 




T 


0010 




T 


0012 




T 


0014 




T 


"0017 




T 


0020 




T 


0026 




T 


0028 




T 


0036 





.» 



E.M I T.nESCL IT C 1 5 3«>| 

EMITpP0CLlT(l537)) 
EMITvCNEEDC". LABEL", 

XITI 
END EMlTLABELOESC; 



% F + O 
X F+l 
INTRFUNID)); 



01592000 
01593000 
01594000 
01595000 
0i596~000 



58 IS 47 LONG* 



0037 
0038 
0039 
0040 
0041 
NEXT SEG 



COMMENT TRACEBACK, QFlOWHanGERS, AND PRTSAVEK ARE 

procedures used to accumulate format and namelist 
procedure traceback(m,dex,prt)j value m*dex,prtj 
begin Integer i*j; real c; 



ARRAYS^ 
INTEGER 



m#dex*prt; 



IF (c*GET(M+2)).BASE 
BEGIN I * ADR; 
00 BEGIN 



* THEN 

adr * cbase; 
j * git(adr); 

ADB ♦ ADR - U 
EMITL(DEX); 
EMlTPAIRCPRT#LOD)J 
END UNTIL ADR * J « 0; 

adr * i; 

end; 

lNFDtM,lR*M.IC].ADDR * PRTJ PUT( M+2,04DEX[ TOBASE ] )J 
END TRApEBACKi 



01597000 T 0492 
01598000 T 0492 
01599000 T 0492 
016015000 1-0*92 
START OF SEGMENT ********** 
01601000 T 0000 
01602000 T 0003 
01603000 T 0005 
OJ604000 T 0007 
01 605000 T 0008 
01606000 T 0009 
01607000 T 0010 
01608000 T 0012 
01609000 T 0012 
01610000 T 0012 
01611000 f 0019 
59 IS 22 LONG, NEXT SEG 



59 



PROCEDURE OFLOWHAnGE flSt It? VALUE" I > INTEGER IT 

begin Integer j; label xit; 

for j «• 1 step 1 until maxnbhang do 

if fnnhangcj] ■ then x make an entry 

begin fnnhangcj] «• i* 

Put Ci"+2~* j'i'i 

Gn to xit; 

end; . 

xta ♦• maxnbhangi x if we reach here were hurtin 

FLAGC91); 
XITI 

end oflowhangers; 



■ - -trttrtow t 04^9? 

01613000 T 0492 
START OF SEGMENT ********** 

01614000 t 0066 

01615000 T 0001 

01616000 T 0002 

"01617066 f 0003" 

01618000 T 0005 

0.1 619000 T 0003 

01 620000 T 0008 

01621000 T 0008 

.01*22000 _T 0009 

01623000 f OOio 

60 IS 13 LONG* NEXT SEG 



60 



PRtTCttJUR E PRTSTVt tttttrST* ART? t 

integer m,sz; array aryco]; 
begin integer 1; real infa; 



v alue nrszr 



0"l^?400tr-T — 0*9? 



LABEL ShOW*XIT1 
IF (INFA*GETCM)) 
BEGIN 



XTA ♦ 

flag(20); 



< then 
GEtTM+iyr 



GO to xit; 



01625000 
01626000 



X PREVIOUSLY DEFINED 



START OF SEGMENT 

01626100 

01627000 

"~ 0W8W0 

01629000 



0492 
0492 



********** 
T 0000 

T _ 000 JL 

f WO 1 " 

T 0004 



61 



end; 

IF I 

SHOW! 

BEGIN 



END E 
BEGIN 



TNFA 



ADDR * THEN * PRT ASSIGNED AT OFLOW TIME 



I + PRGDESCBlDR<l#I#0#NXAVlt ♦ NXAVIL ♦ 1); 

wp itedata csz/nxav iLVary > ; 
fnnhangcget(m*2),size3 * o; 
lsf % add this array to hold 
if fnnprt*o then begin bumpprt; fnnprt*prts 
if fnnindex ♦ sz > dumpsize then % array 

IF SZ > DUMPSIZE THEN X ARRAY WILL NEVER 



end; 

WONT 
FIT 



FIT 



8FG I N iUMPPRTTFNNWNGTGl: TlM+2 ) , S I ZE 3*0 1 TR MTS AC K ( M , Oil *PRTS J V 

go to show; 
end else % dump out current holdings 

BFG IN FNNPRT "'«•"" PRGTJESCBLOft < 1 ' FNNPRT, 0# NXAV IL ♦ NX A V "If "♦ I')T' 

writedatacfnnindex»nxavil#fnnhold); 

fnnindex «- o; bumpprt; fnnprt cprts; 
end; 

fnnhangcgetcm 4 2),size3 *o; 
tr aceb ack (m, fnnindex* fnnprt j ; 

MnVEW(ARY»FNNH0LDtFNNINDEX^SZ,[36l6J#SZ); 

fnnindex * fnnindex + sz; 



end; 
putcm 

XITl 
END P 



#-c,et(m)); 
rtsaver; 



X ID NOW ASSIGNED 



61 IS 



01630000 T 
01611000 T 
01631100 T 
01632000 T 
01633000 f 
01634000 T 
01635000 T 
0I5T60W T 
01637000 T 
01630000 T 
0I3T9UO0 T 
01640000 T 
01641000 T 
01642000 T 
01643000 T 
01644000 T 
1645000 T 
01646000 T 
01647000 T 
01648000 f 
01649000 T 
01650000 T 
01651000 T 
01651100 T 
01652000 T 
57 LONG' 



0005 
0005 
0007 
0008 
001 1 
0012 
0015 
0015 
0021 

0023 
00211 
0033 
0033 
0031 
0037 
0038 
0044 
0044 
0046 
0048 
0050 
0051 
0051 
0053 
0054 
NEXT SEG 



procedure segovf; 
begin 
real l> t* a# j* sadr> infc* labprt; 

real savins; 

for t * i step i until maxnbhang do 
if j*fnnhangcti^o then begin bumpprt;tracebackcj,fnnhangct3*o#prts) 
segovflag "* true; 

BUMPPRT; 

IF PRTS.[37i23«l THEN BEGIN 

pACK^eMc"ttD(rcl37^*iI'xRTt^6l^'ri'iOJ)/ADR;'"f«612r>r"''" 
IF cooetog then DEBUG(T); aor*aor*i end ; 

PACK(EDOCtED0CI3# ( T*2«PRTSC 36 J 38 1 10] ), ADR,C46»23); 

IF CflDETOG THEN DEBUG(T); 

ADR «• ADR + l; 

PACK(ED0CCED0CI3> (T«-UBFW £36s38U0]), ADR,[46l2])J 

IF CnDETOG THEN DEfUG (f)T 

sadr ♦ adr; 

T «• PRGDESCBL0R_^2* _PRTS# 0* NXAVIL + 1); 

FOR I ♦ 6 STEP" 1~UNTIL"SHX DO 

BEGIn T ♦• STACKHEADtH; 

while t * o do 

BfGIN IF "(A^GEtTnTTCLTSS « LABEL ID THEN 
IF A > THEN 
BEGIN 

aor * a.addr; 

if labprt ♦ (infc*get(t+2)).base * then 





01653000 T 049? 






01654000 T 0492 






01655000 T 0492 






START OF SEGMENT ********** 






01655100 T 0JSO ° 






01656000 T 0000 




ITS) 


END; 01657000 T OOOl 
0T66T0W T OOTjy 
01662000 T 0013 
01662300 T 0016 
01662500 T 00T« " 
01662700 T 0023 
01663000 T 0026 
01664000 T OOTl 
01665000 T 0033 
01666000 T 0034 
~0T6670U6 f 0039 
01668000 T 0041 
01669000 T 0042 






T3T67000~6 T 0044 
01671000 T 0046 
01672000 T 0047 






Ol 6T3DOO" "f '" 001T8" ~ 
01674000 T 0050 
01675000 T 0051 






01676000 T 0U52 
01677000 T 0053 





62 



BEGIN 

bumpprt; iabprt*prts; 

put(t+2, infc & prtsct0base3); 

end; 

while adr * 00 

SEGIN J ♦ GITCAoR)* AqR * adr-ii 
SAVINS*GIT(ADR+2)«[3«»10]; 
EMlfOPDCLITCLABPRT ); 
EMITO(SAVINS)! 
ADR ♦■ J) 

end; 
infqct.ir,t.ic] # addr * oj 

ENO^ 

t * a. link; 

end i 

END? 

for t ♦ o step i until lbranch do 

IF T «• - BRANCHEStl] > AND T < 4096 THEN 
BEGIN 

AnR * t-i; 

savins«-git(adr*2) .c36 i 10]; 
bumpprt; emitopdclitcprts); 
emito(savins); 

BRANCHEStl] * - CPRTS+4096); 

end; 

SEGMENTCCSADr+4) DIV 4, NSEG,FAlSE, edoc ) ; 
SEGMENTSTART; 

emito(nop); emito(nop); 
segovflag * false! 
end segovf; 



.01678000 
01679000 
01680000 
01681000 
01682666 
01683000 
01683100 
01684000 
01684100 
OJ.685000 

01 68600 ° 
01687000 
01688000 
dl689~000 
01690000 
OJ691000 
61692060 
01693000 
01694000 
01695060 
01695100 
01696000 
01696 TOO 
01697000 
01698000 
01699000 
01700000 
01701000 
01702660 
01703000 



T 
T 
T 

T. 
T 

T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 



0057 

0062 

0064 

0064 

0065 

0067 

0070 

0070 

007 A 
0672 

0072 
0077 
0077 
0078 
007| 
0081 
0082 
0084 
0685 
6686 
0088 
0093 
0094 
0096 
0698 
6101 
0102 
OI63 
0105 



62 IS 110 LONG, NEXT SEG 



PROCEDURE ARRAYDEC(I); VALUE II REAL II 

BEGIN % DECLARES ARRAYS WHOSE INFO INOEX IS I 
REAL PRT^LNKVJI 

LABEL XIT I 
BOOLEAN OWNIOI REAL Xl 
IF DEBUGTOG THEN FLAGROUT INE( M ARRA%"YDEC %TRUE ) I 
PRT * GET(I),ADDR| 

IF LNK «• GETC 1 + 2). SIZE » THEN GO TO XIT ) 
IF COWNID ♦ PRT < 1536 AND DATAPRT * 0) THEN 
BE6TN 

EMITOPOCLITCDATAPRT)! EMITOUNG)! 
EMITBC-1* TRUE)! X «■ LAX! 

ENOj 

EMITO(MKS); 

EMITDESCLITCPRT); % STACK OR PRT ADDRESS 

IF LNK < 1023 THEN 

BEGTN 

IF OWnID THEN EMITLCO)! X LOWER BOUND 

EMITL(LNK)! % ARRAY SjZE 

EMITLC1); * ONE DIMENSION 
END 



01704000 T 0492 



01705000 
61766666 
START OF SEGMENT 
01706010 
01706100 
01706110 
01707000 
01768066 
01708100 
01708200 
01708300 
01708400 
61708360 
01709000 
01710000 

. 617110-06 
61712600 
01712100 
01713000 
61714666 
01715000 



T 0492 

"f 0492 
********** 

T. 0000 

T 0660 

T 6660 

T 6002 



63 



0003 
0007 
0009 
0009 

ooti 

Q0.1 3 
0013 
0014 

0514 

0015 

0016 

0017_ 

0018 

0019 



m 



BEGTN 



ELSE 
J 

J * (LNK + 255) DIV 256; 
LNK I* 256; XINCLUDE ENTIRE ARRAY SIZE IN ESTIMATE 
IF OWNIO THEN EMITLCOV; X FIRST LOWER" ffOUNU 
EMITL(J); X NUMBER OF ROWS 

IF OWNIO THIN EMITLCO); % SECOND LOWER BOUND 
EMITL(256); % SIZE OF EACH ROW 
EMITLC2); X TWO DIMENSIONS 



ENOl 



BEGTN 



END; 



EMltL(l); * ONE ARRAY 
EMITLCIF OWNID THEN 2 ELSE 0); 
EMIT0PDCLITC5); X CALL BLOCK 
ARYSZ * aRySz + J + lnk; 

IF N0TCF2T0G OR OWNID) THEN 
I 

F2T8G "* TRUE; 
EMlTL(l); 
EMITPAIR(FPLUS2»STD);X 



*OWN OR LOCAL 



IF 8WNID THEN FlXBCXjJ 
XITJ 
IF DEBUGTOG THEN FLAGrOUTINEC " 

end arraydec; 



F*2*TRUE 



ARRA m #"YDEC 'SFALSE) ; 



01716000 
01717000 
01718000 
01719000 
01719100 
01720000 
01720100 
01721000 
01722000 
01723000 
0~1T2¥0W 
01725000 
01726000 
01727000 
01728000 

01729000 
01730000 

01731000 

01732000 
0173 3000 

01733100 
01733105 
01733200 
01734000 



63 IS 53 LONG* 



0019 
0019 
0023 
0024 
0025 
0027 
0027 
0029 
0030 
0030 
W30 
0031 
0033 
00X4 
0036 
0037 
0018 
0040 
0040 
004 j 

0041 

0043 
0044 
0046 
NEXT SEQ 



real procedure search(e); value e; real e; 
begin Rfal t; label xit; 

t «> stackheadce mod shx3; 

WHILE T t DO 

IF INF0C(T+i).IR»Cf+l).IC3 * E THEN GO TO XIT 

else t * infoct.ir*t,ic].link; 
xiti search ♦ t; 
end search; 



01735000 
01736000 
START OF SEGMENT 
01737000 
01738000 
01739000 
01740000 
01741000 
01742000 



T 0492 
T 0492 

********** 



64 



0000 
0001 
WO 3 
0007 
0011 
0012 



64 IS 16 LONG, NEXT SEG 



I N T E G in ' PRO t CDURE S COB AL SETROHt E > 7 V ALUE E ; Rt A L EX 

begin Rfal t; label xit; 

T * GLOBALSfACKHrADTr MOD GHxTJ 
WHILF T * DO 

IF INF0C(T+1).IR#CT+I),ia = E THEN GO TO XIT 

El SETT ♦ TNF0rT,T1?#T t lin.LlNK; 

xiti globalsearch * t; 
end globalsearch; 



0174X000 T 0*9*- 



01744000 
START OF SEGMENT 
01745W0 
01746000 
1747 000 
0174 8000 
01749000 
01750000 



T 0492 

********** 

t oooe 

T 0001 
T 0003 
T ~ 0007 
T 0011 
T 0012 



65 



65 IS 16 LONG V NEXT SEG 



PROCEDURE PURGEINFO; 



01751000 T 0492 



• 4 * 



BEGIN RfAL JJ 

FLAGf 13)1 

FOR J «• STEP 
NEXTTNFO * 2} 
NEXTCOM «• 0; 

end; 



1 UNTIL SHX 00 STACKHEADCJ] * 0; 



01752000 
START OF SEGMENT 
01753000 
01754000 
01755000 
01756000 
01757000 



T 0492 
********** 



66 



0000 
0000 
0005 
0006 
0007 



66 IS 10 LONG, NEXT SEG 



integer procedure entercw, 
begin Real j; 



e); value w, e; alpha w, e; 



if glObalnextinfo i nextinfo then purgeinfo; 

W.LINK * STACKHEADCJ * E MOD SHXJJ 
STACKHEADCJ3 ♦ ENTER ♦ J * NEXTINFOI 
INFOt J.IR,J.IC3 ♦ WJ 

iNFbrcj*j+i)tiR»J«ic3 * e; 
iNFOr(J*J+i).iR»J#ic] * o; 
nexttnfo * nextinfo + 3; 
end enter; 



01758000 
61759600 
START OF SEGMENT 
01760000 
01761600 
01762000 
01763000 
01764000 
01765000 
01766000 
Oi 767060 



T 0492 

T 0492 
********** 

T 0000 

T 666T 

T 0004 

T 0007 

T 6OIO 

T OOU 

T 0018 

T 0019 



67 



67 IS 22 LONG, NEXT SEG 



integer prttccdure globalEntercw* ej; value w> e; alpha w# e; 

BEGIN RFAL j; 

IF GlOBAlNExTTNFO" 5 NEXTTNTU THEN PURGE INFO? 
W.LINK * GLOBALSTACKHEADCJ * E MOO GHX3; 
GLOBaLSTACKHEADC Jl * GLOBALENTER * J * GLOBALNEXTINFO; 

iNFOrj;iRVj;ici "*"tw 

INFOf <J*J*1),IR»J«IC3 ♦ E; 

iNF0rcJ*j+i).iR'J»K3 * 0; 
globalnextinfo * globalnextinfo - 31 
end globalenter; 



START 



01768000 T 04*2 



01769000 


T 


0492 


OF SEGMENT 


********** 


o-nrowo 


T 


OXJOO 


01771000 


T 


0001 


01772000 


T 


0004 


01771000 


f 


0007 


01774000 


T 


0010 


01775000 


T 


0014 


017760150 


T 


0018 



68 



01777000 T 0019 
68 IS 22 LONG, NEXT SEG 



procedure labelbranch(k» c)j 
begin rfal ts,t,i,x; 



VALUE K, C; REAL K; BOOLEAN C; 



OEFINE L.ABL ■ K#; 

COMMENT LABFLBRANCH GENERATES A "LlTC ..." AND 
CURRENT ADDRfJSl3""T0"""LAlTL~'K, "IF THE" "BOOtE'AW "C 
THE BRANCH IS CONDITIONAL. IF THE LABEL HAS 
THEN THF APPROPRIATE LINKAGE IS MADE; 

LABEL xTtT 
IF ADR i 4086 THEN 

BEGIN ADR ♦ ADR+U SEGOVF END* 

I F L ABL ♦" L¥L5HrTT)fTA*i:"AB"L")'" i OR LaBL ""■ 

BEGIN FLAGC135); GO TO XIT END; 



"BRANCH" FROM THE 

IS TRUE" 

NOT BEEN ENCOUNTERED 



BLANKS" THEN" 



01778000 
Oj 77 9000 
START OF SEGMENT 
01780000 
01781000 
01782006 
01783000 
01784000 
61785000 
01786000 
01787000 

OTTTSOOO 

01789000 



T 


0492 


T 


0492 


********** 


T 


0000 


T 


0000 


T 


0000 


T 


0000 


T 


0000 


T 


0000 


T 


0000 


T 


0000 


T 


000 3 "" " 


T 


0007 



69 



IegInts • 

IF I.C 

if i > 

BEG 



END 
IF 

Bfgin 

X.B 
PUT 
EMI 
EMI 

end; 

END FUSE 
BFGIN 
IF 
EMI 

T «• 
EMI 

Emd; 

IF XREF T 
XIT« 
END LABFLBRA 



ARCHCLABL) to THEN,. 

♦ (I ♦ get(T5).ador; 

LASS X LABELID THEN BEGIN FLAGC144); GO TO XIT END; 

THEN 

in emiTlInkcts); 

emitocif c then bfc else bfw); 
putct#i&cadr-1ht0addrj); 

EMITO(NOP); 
ELSE 
I. SEGNO = NSEG THEN EMITBCTS* C) ELSE 
IF TS«-(X*6EUT + 2)),6A$E ■ THEN 

ASE ♦ TS «• PRGDESCBLOR(2*0.(I,ADOR).C36tl03»I.SEGNO); 

CT+2#X>; 

TOPDCLITCTS); 

TQ(IF C THEN BFC ELSE BFW); 



? 



AOR < THEN EMITOCNOP); 

TLINK(O); 

EMITOC IF C THEN BFC ELSE BFW); 

ENTERCO & LABELIDCTOCLASS] & ( ADR-1 ) CTO ADDR] , LABLH 
TO (NOP); 

HEN ENTERX(LABL*OSLABELID[TOCLASS3); 

nch; 



69 IS 



01790000 
01791000 

01791100 T 
01792000 T 
01793000 T 
01794000 T 
01795000 T 
01795100 T 
01796000 T 
01799000 T 
01800000 T 
01801000 T 
01802000 T 
OT8O3OTJ0 T 
01804000 T 
01805000 T 

oreoexroo t 

01807000 T 
01808000 T 
01809600 T 
01810000 T 
01811000 T 
Oiai U 00 T 
01812000 T 
01812100 T 
01 8 HOOT) T 
01814000 T 
58 LONG* 



881? 

0014 
0017 
0018 
0019 
0021 
0024 

0025 
0025 
0028 
0032 
0037 
0038 
0039 
0041 
OOTi 
0041 
0042 
0044 
0045 
0047 
005 i 
0052 
0052 

0055 
NEXT SEG 



X SCANS CONSTANTS IN BLOCK DATA 



procedure dataset; 
begtn 

REAL LST » CUR, L T'YP * CT Y r P '#$! I , "R'Ff J 

REAL CUD; 

BOOLEAN SGN"; 



01815000 
01816000 
SWl76W 
START OF SEGMENT 
01818000 
~0T8T90W 
01820000 
01821000 



DEFINE TYP » GLQBALNEXT#> 
TYPC m 18133U5#; 

label x i t# errors d_pp#j5pp' cpp*comm,s; 

i f debug tog" the n f l auro~u h n ec " """ data**"" set * "i y rue ) i" 
datatog ♦ true; filetog * true; 
scan; 
LsY5"*"«i; CtYP™*T7T""'" 

St IF TYP » PLUS OR CSGN «• TYP « MINUS ) THEN SCAN; 
IF TYP a NUM THEN 



BEGIN 
BEGIN 



IF NUMTYPE «■ STRINGTYPE AND STRlNGSIZE > 1 THEN 

I 

^ .-._.._. „_.__...__„„ 

BEGIN X NOT FIRST ENTRY-PUSH DOWN PRIOR NUMBER 
IF LSTS+2 > LSTMAX THEN 

" " ~ segt?t ft agt Trrrr "Wtd " Twxwrzmt 

LSTT[LSTS*LSTS+U * RPT4LTYPCTYPC3 ; 



01822000 
01823000 
0JJJ24000 

"'fll82T00~0~ 
01826000 
01827000 

"018280150 
01829000 
018JJ0000 
01831000 
01832000 
01833000 
61834000 
01835000 
018 3600 

UTI37000 
01838000 



T 0492 

"f M9~2 

********** 



70 



T 

Y 

T 

T 

T 

T 

T 

T 

T 

T 
y 

T 
T 
T 
T 
T 
t 
T 
T 

t 

T 



0000 
DOTO 
0000 
JJOOjO 
0000 
0000 
0000 
0000" 
0002 

0004 
OTJOT 

0006 

ooio 

06Ti 
0011 

o°U 

0013 

0014 

0015 

0016" 

0020 



** 



ISTTCISTS+LSTS+IJ * lST; 
LTYP «• 771 



end; 



ENOJ 



IF LSTS ♦ STRINGSIZE > LSTMAX THEN 
BEGIN FLAGC127)! GO TO ERROR END* 

ISTT[LSTS*ISTS + 1] «. STRINGSIZE 4 5TR INGTYPECTYPC3 

& S I Z C 3 I 3 3 * 1 5 ] ; 
MOVEWCSTRINGARRAY»LSTTCLSTS*LSTS + n* 
STRINGSIZE. C 36 |6]»STRINGSIZE)) 
LSTS * LSTS ♦ STRINGSIZE - II 

scan; 

go to comm; 

% got number 
if numtype » stringtype then 



end; 



BEGIN 

FNEXT ♦ STRlNGARRAYtOi; 

numtype * intype; 

if siz - then siz * ii 

cur «■ if sgn then -fnext else fnexti 
ctyp «• numtype! cud * dblow; 

scan; 

if typ * comma or jyp * slash then 

BEGTN 

if siz ■ o then siz * 1; 

IF CTYP ■ DOUBTYPE THEN 
BEGTN 

DPP« IF LTYP * 77 THEN 
BEGIN 

IF LSTS+2 > LSTMAX THEN 

BEGIN FLAGU27); GO TO ERROR END; 

LSTfCLSTS*LSTS+n * RPT&LT YPfTYPC H 

LSTTtLSTS*LSTS + l] *■ LSTl 

LTYP <• 77; 

end; 
if lsts+3 > lstmax then begin flagc127); go to error end; 

LSTT[LSTS«-L$TS+U * SIZ&DOUBTYpEtTYPCi; 

lsttclstshSts+U * ""CUR) 

LSTTCLSTS ♦ LSTS ♦ 1 ] * CUD! 

GO TO comm; 



END; 
SPPj 



% SINGLE PRECISION 



IF LTYP ■ 77 THEN 

BEGIN 

lst ♦ cur; 
ltyp •■ ctypi 
rpt * siz; 
GO TO comm; 

end; 
if ltyp « ctyp then 
if real(booleanccur) eqv booleanclst)) « realcnot false) then 

begin" 

rpt ♦■ rpt ♦ siz; 



01839000 T 


0012 


01840000 T 


0025 


01841000 T 


0025 


01841100 T 


0025 


._.___._.._ 


0025 


01843000 T 


0027 


01844000 T 


0028 


01844100 '"f 


"OoSi 


01845000 T 


0032 


01846000 T 


0034 


0l846l"(S0'"f 


0636 


01847000 T 


0037 


01848000 T 


0038 


01849000 T 


00 38 


01650000 T 


0038 


01851000 T 


0036 


01851100 T 


0039 


01851200 T 


0040 


01651300 T 


0041 


01851400 T 


0041 


01851500 T 


0043 


01852000 T 


0043 


01853000 T 


0046 


01854000 T 


0047 


01855000 T 


0047 


01856000 T 


0048 


01857000 T 


0050 


O1857JO0 T 


0050 


01858000 f 


6652 


01859000 T 


0053 


01860000 T 


0053 


01861066 f 


0054 


01862000 T 


0055 


01863000 T 


0056 


61864666 T 


0058 


01865000 T 


0061 


01866000 T 


0063 


OT867W0 T 


W54 


01868000 T 


0064 


01869000 T 


0067 


01870000 T 


6669 


01871000 T 


6072 


01872000 T 


0074 


OTafSOOU f 


10074 


01874000 T 


0074 


01875000 T 


0074 


TJT878W0 T 


0075 


01877000 T 


6075 


01878000 T 


0076 


01879000 T 


6677" 


01880000 T 


0077 


01881000 T 


0078 


01882000 T 


0079 


01883000 T 


0079 


01683100 T 


0079 


01684000 T 


0081 


01885000 T 


0082 



GO TO ERROR END; 



END; 



GO TO comm; 
end; 
if lsts+2 > lstmax then begin flagc127); 
lsttclsts*lsts+1] ♦ rpt&ltypctypc]i 
LSTTCLSts*LSTS+ii ♦ lst; 

RPT <• SIZi 

lst *■ cur' ltyp «■ ctyp; 
go to comm; 



X TYP * COMMA • CHECK FOR * 
IF TYP t STAR THEN BEGIN FLAGC125); GO TO ERROR END* 
IF 6TYP * INTYPE THEN BEGIN FLAGC113); GO TO ERROR END; 
IF SIZ ^ OR SIZ * CUR S THEN 
BEGIN FLAG(64); GO TO ERROR END; 

scan; go to s; 



end; 



X TYP * NUM AT LABEL S 
IF SIZ * THEN SIZ «• 1' 
IF NAME ■ "T " OR NAME * 



" THEN 



BEGTN 



cur «■ reakname 
ctyp «• logtype; 
scan; go to spp; 



"T 



)i 



END; 



CPPj 



IF TYP i LPAREN THEN BEGIN FLAGC64); GO TO ERROR ENO; 

X COMPLEX 
IF LTYP t 77 THEN 

BEGIN 

IF LSTS+2 > LSTMAX THEN 

BEGIN FLAGC127); GO TO ERROR END; 

LSTYtLS?S«-LSTS + n ^ R p Tit _ T YPiTYPCT; 

LSTTtLSTS«-LSTS + l] * |_ST; 
LTYP * 77; 

end; 



scan; 

IF TY 
IF TY 
BEGIN 
IF LS 
LSTTt 
LSTTC 

scan; 

IF TV 

scan; 

IF TY 
IF TY 
BEGIN 
LSTTC 

scan; 

IF TY 

scan; 



P ■ PLUS OR CSGN*TYP*MINUS) THEN SCAN; 
P i NUM OR NUMTYPE > REALTYPE THEN 

FLAGC6A); GO TO ERROR ENo; 
TS+2 > LSTMAX THEN BEGIN FLAGC127); GO TO ERROR END; 
LSTS*LSTS+U * SlZ«COMPTYpEtTYPC3; 
LSTS*LSTS+13 ♦ IF SQN THEN -FNEXT ELSE FNEXT; 



p y COMMA THEN BEGIN FLAGC114); GO TO ERROR END; 

P « PLUS OR (SGN ♦ TYP * MINUS) THEN SCAN; 
PV NUM OR NUMTYPE > REALTYPE THEN 

FLAG(64); GO TO ERROR END' 
k?T.?^ S T.3*i.lM_f„_?6^_ T .HEN -FNEXT ELSE FNEXT ; 

P i RPAREN THEN BEGIN FLAG(108); GO TO ERROR END; 



COMMl 



siz ♦ o; 

IF TYP « COMMA THEN BEGIN 

I F TYP i" "5 L ASH THEN 60" TO 

FLAG(126); 



scan; 
xTt; 



go to s; end; 













01886000 


T 0083 






Ol 887 000 


T 0084 






01888000 


T 0084 






01889000 


T 0087 






01890000 


T 0089 






01891000 


T 0092 






01692000 


T 0092 






01893000 


T 0094 






01894000 • 


T 0094 






01895000 


T 0094 






0189*000 ■ 


C 0094 






01897000 * 


r 0097 






01898000 ' 


r 0099 






01899000 


.. 010 ^ 






01900000 ' 


r oi03 






01912000 ' 


r 0104 






o in ro m ' 


r 0104 






01913050 ' 


r 0104 






01913100 ' 


r oi06 






01913200 ' 


r 0108 






01913300 ■ 


r 0109 






01913400 ' 


r oiio 






01913500 ' 


r oiu 






01913600 ' 


r oiu 






01914000 1 


r oiu 






019150Cro 1 


r Dug 






01916000 1 


r oiu 






01917000 1 


r 0117 






01918^00 ' 


r on 7 






01919000 1 


r one 






01920000 i 


r oii9 






01921000 1 


r 0121 






01922000 1 


r 0124 






01923000 1 


r 0126 






01924000 < 


r 0127 






01925000 1 


r 0127 






01926000 1 


r 0127 






01927000 "i 


r 0130 






01928000 1 


r 0132 






01929000 1 


r 0134 






01930000 1 


r 0137 






01931000 1 


r oho 






01932000 1 


r 0144 






01933000 1 


r 0144 






01934000 1 


r 0147 






01935000 1 


r 0147 






TJ 1 935CT0O 1 


f OT50 






01937000 1 


f 0152 






01938000 1 


' 0154 






01939000 1 


r 0158 






01940000 1 


' 0158 






01941000 1 


r oi6i 






"01 942056 1 


r 01 61 






01942100 1 


' 0162 






01943000 1 


r 0162 






0194X000 1 


' "0165 






01945000 1 


' 0166 





• • . * 



• 



ERRf}R» 

lsts * o; 

WHILE TYP t COMMA AND TYp t SLASH AND TYP * SEMI DO SCAN; 
IF TYp * COMMA THEN GO TO CQMMj 
X IT i 

IF LTYP t 77 THEN 
8EGIN 

IF LSTS+2>LSTMAX THEN BEGIN FLAG(I275I LST5*0 END! 
LSTTCLSTS*LSTS+U ♦ RPT4LTYPCTYPC 3 i 
LSTTtLSTS*LSTS+ll * LST; 

end; " """ " """ " " 

if lsts + 1 > lstmax then begin flagc127); lsts «■ end; 

LSTT£LSTS*LSTS + n *0; 
IF DEBUr;Td6'"TH"E"N^'rL''*«WO'0'nfiEC'""'"OAfA i< i" , 'Slf H 7FALS"E5 J 

datatog ♦ false; filetog ♦ false; 
end dataset; 



01946500 
01947000 

01948000 
01949000 
01955090 
01951000 
01952000 
""0TW3UW 



T 
T 

T 

T 

t 

T 

T 

T 



01954000 T 
01955000 T 



fflfSTODO' 
01957000 
0195B000 
13i959"6"0e 
01960000 
01961000 



T 

T 
T 
?' 

T 

_ J... 

70 IS 199 LONG* 



0167 

0167 

0167 
0172 
0173 
0174 
0174 
0173 

0178 

0181 
"OTSF" 

0183 

0186 

0189 

0191 

0193 
NEXT SEG 



ALPHA PROCEDURE CHECKDO; 
BEGIN ALPHA X, T; INTEGER 



n; 



STREAM PROCEDURE CKDO(A# ID, LAB); 
BEGIN 

SI «■ 

5(IF 

DI * 
6CIF 



START 



A; SI ♦ SI + 4; DI «■ 
SC > "0" THEN DS «• 

id; di '♦' Di+2; 

SC ■ ALPHA THEN DS 



lab; di ♦ di+2; 
chr else jump out); 



* CHR ELSE JUMP OUT); 



END CKDOJ 



01962000 


T 


0492 


01963000 


T 


0492 


OF SEGMENT 


********** 


01964000 


T 


0000 


01965000 


T 


0000 


01966000 


T 


0000 


01967000 


T 


0001 


01968000 


T 


0003 


01969000 


T 


0003 


01970000 


T 


0006 



71 



IF CxTA«-H0LDlDC03).tl2l243 » "FILE" THEN FL0GC37) ELSE 
IF XTA.C12I12J * "DO" THEN FL0GC17) ELSE 

BEGIN " 

x ♦ t * blanks; 

CKD0(H0LDIDC03> X* T); 

IF X*BLANKS THEN FL0GU05); 
IF T * LBLSHFTCT) < OR T * BLANKS THEN FL0GC17) ELSE 
TEST * NEE0(T> LABELID); 
DnLAB[DT] * f; 
IF XREF THEN ENTERX( T* 04LABELID t TOCLASS] )} 

IF GETCTEST) < THEN X TEST FOR PREV DEFINITION 
BrGIN 

XTA ♦ GETCTEST+1); 

FLA6C15); 

DT «• DT-i'J 

end; 

IF N *■ SEARCHCX) « o THEN 

N*ENTER<TIPECIE " t*'X t 1 12"l6j*"0" 

CHECKDO ♦ GETSPACE(N); 

IF XREF THEN ENTERXCX* UGET (N ) 

IF IXVSeHN ) ) .SUBCLASS > REALTYPE OR X, CLASS t VARID THEN" 

BfGIN XTA ♦ GETtN+1); FLAGC84) END; 



THEN "t ELSE 123* X) ; 
C15U5I93); 



01971000 
01971010 

019 72000 
01973000 
01974000 
01974500 
01975000 
01976000 



01977000 
01977100 
01978000 
01979000 
01980000 
01981000 
0i9826~0~0~ 

01983000 

01984000 

01985000 

01987000 

01987100 

TJ198BW0" 

01989000 



0006 
0010 
0014 
0016 

0011 

0018 

0020 

0025 

0027 

0028 

0031 

0032 

0033 

0035 

W35 

0037 

0037 

0038 

0044 

0045 

TJOW 

0052 



• 



IF GETCFX1). CLASS a UNKNOWN THEN PUTCFX1M*. 
ENOJ 
END CHECKOO; 



J I ! ! P » 



>J 



71 



01990000 T 

1991000 t 

01992000 T 

IS 63 LONG, 



0055 
0059 
0059 
NEXT SEG 



PROCEDURE FIXB(N); VALUE NJ REAL NJ 
BEGIN 

REAL T, U» FROM; 



IF 



LABEL 

DEBUG 

IF N 

IF Fr 

BEGIN 

An 

T 

GO 

end; 

T «■ AORJ 
IF (T + 
IF (U 
BEGIN 
BIGJI 



xit> bigj; 

TOG THE N F L A Q R U T I NE ( " 



Fl 



»XB 



M #TRUE ) i 



2 10000 THEN FROM «■ N-10000 ELSE 
OM * - BRANCHESCN3 > 4095 THEN 



AD 
EM 

EM 

eno; 

ADR «■ f J 
XITI 

IF N 

BRANC 

BRANC 

end; 
If debug 

END FIXR 



just; 

«■ prgdescbldr(2# from f link# c aor+ 1 ) . c 36 i 10 j , nseg); 
to xit; 

ADR «• FROM - i; 

1).[46»2j « then go to bigj; 

t - 2 - adr) i 1023 then emitl(u) else 

r * t; adjust; t * aor; aor * from - 1; 

ITLCCt + l j,C35ii"6] - (AbR + 2).C36ll03); 

ITOCIF BOOLEANCGITCFROM + 1).C36«M) THEN GFW ELSE GFC); 



< 10000 THEN BEGIN 
HE St NT j. •■■ BR - RNCfl - X j - 

HX * n; 

TOG THEN FLASROUTiNEC* 

; 



Fl%"x6 



♦SFALSE) J 



01993000 T 0492 

01994000 T 0492 

01995000 T 0592 

START OF SEGMENT ********** 

01996000 T 0000 

01996010 T OOO"0 

01997000 T 0002 

01998000 T 0004 

01999000 T 0009 

02000000 T 0010 

02001000 T 0010 

O2O02OOO T 0014 

02003000 T 0016 

02004000 T 0016 

02065000 f 0018 

02006000 T 0020 

02007000 T 0023 

02008000 T 0027 

02009000 T 0031 

020^0000 T 0035 

020lla00 T 0035 

020J2000 T 0035 

02013000 T 0036 

" 020T4000" r 0037 

02015000 T 0038 

02016000 T 0039 

02016010 f 00« 

02017000 T 0041 
72 IS 47 LONG, NEXT SEG 



72 



procedure datime; 

BEGIN 

intfger d ; 

FORMAT T(X9i"B 5 7 
w XVI,0 N 



X PRODUCES HEADING LINE FOR LISTING. 



FORTRAN 



COMPILATION 



02018000 T 0492 
02019000 T 0492 
O2O2DOOO T 0492 
START OF SEGMENT ********** 

"> 02021000 T 0000 

START Or TEGRCWT "****"****** 
02022000 T 0000 
,".",A2» , '»"#A8* M 0AY# %2CA2,"/ w )»A2»>'%A2»"l%A2," H*»/)i 02822500 T 0000 

~'~ 7li~Tr~~^0~C"lJR"Qr'NE*T"5'EG'' 

WRITALISTCT#7# 02024000 T 0000 

"15" 02025000 P OOOl 

# TlME(6)/(0«.TlMEC5))Vrr2tl2T,O.E24il23yo;ty6-Tr2T, 7J2U260DT5 T OffOl 

D*(0*RTI DIV 216000) MOO 10*0 DIV 10x64# 02027000 T 0005 

0*f0*RTI DIV 3600 MOD 60) MOD 10 + D OIV 10x64,0) i 02028000 T 0009 

IF D*LTnEVtyFe»TO OR" D»12 OR Dil3 ThTN ~ " " ~~ ~ " 020T97JTO "T 0014 

BEGIN 02030000 T 0019 



73 

74 

73 



• « 



• ' 



. " 



lock(line); line,areas*o; line . areasize*0 } 

if 0*12 then line.type+12; space(uine»2) ; 
end ; 
firstcau«-faise ; 

END oatime; 



02031_000 T 0020 
02032666 T 0027 
02033000 T 0034 
02034000 T 0034 
O263966O T 0036 
73 IS 44 LONG, NEXT SEG 



PROCEDURE PRINTCARDJ 
BEGIN 

STREAM PROCEDURE M0VE(P# Q» A)J VALUE A* Ql 

BEGIN 

St * Qi 01 ♦ PJ 

DS «• chr; 

D? «■ 01*111 si * loc a; 

DS * 4 DEC* 

END move; 



"OgOTOOOO T 0492 



02041000 
02042000 



0492 
0492 



START OF SEGMENT ********** 



02043000 
02044000 
620 45660 
02046000 
02047000 
02048000 



0000 
0000 



0000 

oooi 
0001 



yg 



STREAM PROCEDURE MOVEBACK(P); 
BEGIN DI "♦' Pi OS ♦LIT "]" END; 



02049000 T OOOi 

O2050006 t oooi 



M0VF (CROt9]»BUFL#CADR*l).C36ll03); 

if FiRsYcALL ; then'datTmT; 
if unprinteo then writarow(15»crd> ; 
m0veback(crdc93); 

IF SFQERRORS ThTN WR iTAROWC HfERRQRBuFF ) V 

END PRlMTCAROi 



02051000 


T 


0003 


0T6526W 


T 


0005 


02053000 


T 


0007 


02054000 


T 


0010 


02054016" 


T 


0611 


02055000 


T 


0013 



75 IS 14 LONG, NEXT SEG 




BOOLEAN PROCEDURE READACARDJ FORWARD; 

- procedu r e gcanj r onwAROj — — 

PR C E DURE FILE 6 Pfl NT "" F OR W A R 07 
BOOLEAN PROCEDURE LABELRJ 
BEGIN 

LABEL X|T# LOOP; 



02056000 
020 5 7000 



BOOLEAN STREAM PROCEDURE CHECK(CD, LAB); 
BEGIN LABEL XIT; LOCAL TU 

.. si .. .♦. ..CD.;. _..._ . 

IF Sc * " w THEN IF SC < "0" THEN 

BEGIN DI * LAB; 01 * DI ♦ 2; 

_PA._t_*_CHRJ GO. TO XIT) 

end; 
di *loc tu ds ♦ 6 lit " "; di ♦ di - 6; 



"02O58WO 
02059000 
02060000 
02061006 
02062000 
START OF SE GMENT 



049? 
4 02 - 



0492 
0492 

6492 
0492 



********** 



02063000 
02064000 

_Q.2_0_65_0_0JL 
02066000 
02067000 
62068000 
02069000 
02970000 



0000 

0000 
0.000 
6600 
0001 

002 

6003 
0003 



76 



w 



5(IF SC i rt M THEN DS * CHR ELSE SI * SI + 1H 
Dl «-L*Bi DI *OI + 2i SI «• LOC TU 

5(IF SC * "0* THEN JUMP OUT; SI ♦ Si ♦ 1>; 
5<IF SC > "O w THEN OS *■ CHR ELSE JUMP OUT); 
TALLY «• I) 
XIT* CHECK * TALLY; 
END CHECK; 



02071000 


T 


0004 


02072000 


T 


0006 


02073000 


T 


0007 


02074000 


T 


0009 


02075000 


T 


oou 


02076000 


T 


0011 


02077000 


T 


0012 



BOOLEAN STREAM PROCEDURE 8LANKCARDC CD ); 
BEGIN LABEL XIT; 

SI * cd; 

2(36f IF SC * " " THEN JUMP OUT 2 TO 

TALLY «■ i; 

XITI BLANKCARD ♦ TALLY; 

ENO blamkcard; 



XIT ELSE SI * SI + 1)); 



02077100 
02077200 
02077300 
02077400 
02077600 
02077700 
02077800 



0013 
0013 
T30I4 
0014 
0017 
0017 
0018 



LOOP 
LABL 
IF L 

I 
BEGI 

B 

E 
G 

end; 

IF E 

B 

BEG 

I 

I 
END 
BEGI 



end; 
y it » 

END LAB 



I 

«• BLANKS; 
ABELR * NOT READACARD THEN GO TO XIT; 
NOT CHECKCCR'D'COJtLABL) THEN 
IF LABL <= "FILE " THEN FlLEOPTlON 
IF LISTOG THEN PRINTCARD; 
(XTA «■ LABL)tC12l63 * '"** 



F 
N 

FGIN 
IF 

md; 

TO 



ELSE 
C* THEN FLAG (135); 



loop; 



mdsegtog then if BLANKCARDCCRD) then 

fgin if listog then printcard; go to loop END ELSE 

tn segmentstart; 

f listog then printcard; 

f labl ■ blanks then go to xit; 

FLSE 



Ni 



IF LABL * BLANKS THEN 
BEGIN IF LlSTOG THEN PRINTCARD* GO TO XIT END/ 

if adr > o Then adjust; 

IF LISTOG THEN PRINTCARD; 



02078000 
02079000 
02080000 
02081000 
02082000 
02083000 
02013 100 
02083200 
02084000 

"Q20870W 
02086000 

02086500 
02087000 
02088000 
02089000 



02090000 
02091000 
02092000 



flr; 



T5TS 



02093000 
02094000 
02095000 
OSOStfODOf 
02116000 
02117000 
55" X0Tn»7 



0019 
0020 
0020 
0022 
0025 
0027 
0030 
0033 
0033 

0034 
0034 

0037 
0039 
0040 
0042 
0043 
0043 
0044 
0043 

0047 
0049 
TJOTi 
0051 
0052 

kext-stg 



procedure fileoption; 

begin comment thts pttoctduwe p*cfctssr5 tht tjpttonax tixt control card, 

the w0l*o w f i le" appears in col* t • 4. col. 5 and 6 are blank. 

#1 BELOw IS REQUIRED* OTHER ENTRIES MAY BE AS SPARSE AS OESIREO. 

IV file" <NUW> " *" <RUTTT"-T TtE TD> 7 ' <TTLT ID"> " " 

OR 



02118000 


T 


0492 


"02119000 


T 


0492 


02120000 


T 


0492 


02121000 


T 


0492 


~O~2T22000 


T 


C492 


02123000 


T 


0492 



*• 



*» >* 




2. 

3, 

4. 

5. 

6. 

7. 

8. 

9, 

10, 

11. 

12. 

13. 

ALPHA 



FILE. <NUM> ■.. 

the f0ll0wi 
the sequenc 
it.print/rea 

LABELED 
PHA (FOR 
L (IGNOR 
XEn (IGNOR 
VE ■ <NUM> 
CK (LOCK 

NOOM /SERIAL/ 
REA * <NUM> 
LOCKING • <N 
EChRb » <NUM 
UFFER 9 <NUM 

c&karea 

P,KEEP; B 



UN 

UN 

AL 

BC 

FI 

SA 

LO 

RA 

A 

B 

R 

9 

W 



<FILE ID> 

NG V" IS A DOCUMMENTARY OR. 

E OF RESERVED WORDS MUST BE MAINTAINED. 

DER/PUNCH/DISK/TAPE7/TAPE9/REM0TE (UNIT DESIGNATE) 

(FOR UNLABELED TAPES) 

ALPHA RECORDING MODE) 
ED* FOR 3500 USE) 
ED* FOR 3500 USE) 

(SAVE FACTOR IN DAYS) 

FILE AT EOJ) 
UPDATE (DISK" USE) 

(DISK RECORDS/ROW) 
UM> (RECORD PER BLOCK) 

> (RECORD SIZE) 

> (# OF BUFFERS) 
(IGNORED, FOR 3500) ; 
bOLEAN TOG,CA#fS, LABEL XITi 



COMMENT INXFIL 
FILE" ID * 
FlLEINFOtO 
INTEGER X NAME 
BUFF* 
RECOR 
BLOCK 

SAVER 
SPIN, 

alph; 

PROCEDURE FETCH! 

begin Scan; xta 
If next*com 

BfGIN SCAN) 
IF NE 

end; 
end fetch; 



* INFC 
FILEINF 
, INXFIL 



ADINFO, MULTI FILE ID * FILEINFOU* INXFIL 3* 
0C2,INXFlL]> DISK RECORDS s F iLEINFOt 3 , INXF IL3 » 



p 



3 FROM RIGHT TO LEFT IS; 

USE 
X # BUFFERS 
X RECORD SIZE 
X BLOCK SIZE 
X SAVE FACTOR 
X REW & LOCK * EOJ 
X RECORDING MODE 



«• symbol; 

ma or next*minus then 

xta * symbol; 
xt / id then fl0g(37); 



BITS 

6 
12 
12 
12 

2 

1 



Q2124Q00 T 0492 

02125000 T 6492 

02126000 T 0492 

02127000 T 0492 

02128000 T 0492 

02129000 T 0492 

02130000 T 0492 

02131000 f 0492 

02132000 T 0492 

02133000 T 0092 

02134660 f 0492 

02135000 T 0492 

02136000 T 0492 
02137006 f049"2 

02138000 T 0492 

02139000 I 049JL 

62140666 T 0492 
START OF SEGMENT ******** 

02141000 T 0000 

62142000 T 6666 

02143000 T 0000 

02144000 T 0000 

02145660 T 0000 

02146000 T 0000 

02147000 T 0000 

62148666 T 6660 

02149000 T 0000 

02150000 T 0000 

02151666 "f" 6066 

02152000 T 0000 

02153000 T OOOl 

02T54~OOD T 6U03 

02155000 T 0004 

02156000 T 0006 

02157000 t 0006 



77 



integer stream procedure 
begin label loop; local 
si «• xta; si * si + 2; 

LOOP! |F SC * "0" then 

begin tally «• tally 
t ♦ tally; si «■ xta; si 
end make i nt; 



makeint(xta); 
t; 



♦ 1; SI «• si + 1; GO TO loop end; 
* si + 2; di «■ loc makeint; ds * 



t oct; 



02158000 
02159666 
62166000 
02161000 
02162066 
02163000 
02164000 



0007 
0007 
0007 
0007 
66 6 8 
0009 
0011 



INTEGER PROCEDURE REPLACEMENT; 
BEGIN 

FETCH; IF NEXT » EQUAL THEN 
BEGIN FFTCH; IF XTA.U2I6J S 11 
F, ETCH_EN_D_ELSE FL0G_(37); 

end else fl0go7); 
end replacement; 



THEN BEGIN REPLACEMENT * MAKEINT(XTA ); 



02165000 
^2166000 
02 1670 00" 
02168000 
02169000 



02170000 T 
02171000 T 



0012 

°°12 
6012 
6014 
06^9 

6626 
0022 



INTEGER STREAM PROCEDURE SRI7C$)J 
BEGIN SI «• S; DI * UOC SRI7; 

st * si + 2; di *■ di * 1; 

END SRI7J 



DS * 7 chr; 



02172000 T 0024 

02173000 T 0024 

02174000 T 0025 

02175000 T 0026 




COMMEN 
IF DEB 
ERRORT 
IF LIS 
XTA «■ 
IF NSE 
IF I NX 
BEGIN 
BUMPPR 

MAXFIL 
FILETO 

fetch; 

I 

IF T ♦ 

else r 



E 

INFC * 

fetch; 

BEG 

IF NEX 
BEGIN 
EL 

fetch; 



T * * * * * START OF CODE 
UGTOG THEN FLAGROUTINEC" F 

OG «• false; 

tog then printcard; 

"file "; 

g x then flag(60); 

ftl * inxfil + 1 > maxopfi 

flagc59); go to xit end; 

t; 

ES «• MAXFILES + i; 

g «• true; scn ♦ 1; % S 

IF XTA. C 12163 > 11 THEN 
F XTA.C12I6] « THEN BEGI 
GLOBALSEARCHCP ♦ 04". "[12 

EGlN P* GL0BALENTER(-04PRT 
PUT(P+2»GET(P+2)4INXF 
IF XREF THEN ENTERXC 

Nn* 
getcp ♦ 2); 

IF NEXT » EQUAL THEN ft 
In FL0GC37); Go TO xit; 

t ■ semi then 

FlAG(37); GO TO XlT ENO 
SF FILEINF0C2>INXFIL3 ♦• SR 

IF NEXT ■ SLASH THEN 
BFGIN FlLElNFOtlflNxFlL] "♦ 

fetch; 

IF NEXT ■ SEMI THEN 

ELSE FILEINF0C2 
FETCH; 



* * # * ; 

lLEO%"PTION "*TRUE ) i 



LES THEN 



TART SCAN M 
BEGIN FLAGC 
N FL0G(037) 
U2:6]4XTAC 
S[T0ADDR34F 
ILCTOADINFO 
41CT6CET 



TCR ELSE 

end; 



I7UCCUMC13 
FILEINF0C2 

BEGIN FLAGC 
» INXFIL] *■ 



AINTAINENCE 

37); GO TO XIT end; 

; GO TO XIT END ; 

18*12 » 30 ] ) i THEN FL AG ( 20 j 

ILEIDCT0CLASS],P); 

3); 

,HFHEr0XTUC:LASS3)J 



); 

/INXFILI; 



% MULTI FILE ID 



37); GO to xit; end 

SRI7CACCUMC1J); 



IF XTA 
BEGIN 
FET 
IF N 



end; 

x "UNIT 



" THEN 



ch; 

ext • equal then fetch els 
infc. link ♦ keep «■ (if 

IF CA * 

IF CA * 
IF 
IF 



^ 



E FLOG 

TOG * 
OR 
TOG *■ 
OR 
TOG * 
TOG * 
TOG * 
_^ OR 



(37); 

XTA ■ 

XTA a 

XTA '■ 

XTA ■ 

XTA a 

XTA ■ 

XTA ■ 



"PRINT " 
"PRINTE" 
"READ " 
"READER" 
"PUNCH " 
"DISK " 
"TAPE " 
"TAPE7 



THEN 18 ELSE 



THEN 
THEN 
THEN 



2 ELSE 
ELSE 
12 ELSE 



THEN 2 ELSE 



IF CA *T0GTx7a* "REMOTE" THEN iW ELSE ., ,, 
IF TOG * XTA ■ "TAPE9 " THEN 2 ELSE I^WWl 



02176000 

02176010 

02176100 

02177000 

02176000 

02179000 

02180000 

02181000 

02182000 

02183000 

02184000 

02185000 

02185010 

021786000 

02187000 

02188000 

02188 1W 

02189000 

02190000 

02I9TOX3Q 

02192000 

02193000 

02194000 

02195000 

02196000 

02T970W 

02198000 

02199000 

02266060 

02201000 

02202000 

0226X060 

02204000 

02205000 

02206000 

02207000 

02208000 

62269606 

02210000 

02211000 

02212000 

02213000 

Q991flOQp_ 






02214500 
02215000 



T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
f 
T 

x 

T 

T 



0027 
0027 
0030 
0030 
0032 

0033 
0035 
0037 
0042 

0045 
0047 

0048 
0052 
0055 
0060 
0064 
0081 
0072 
0072 
0073 
0076 
0077 
0078 
0080 
0084 
0085 
0088 
0089 
0091 
0095 
0096 
0096 

0096 
0097 
0097 
0101 
0102 
6165 
0105 
0109 
0112 
0115 
0J L15 




• • 



• • .«• 



12 ELSE 2 ; 




• v IF TOG THEN. FETCH. ELSE FL0G<37) 
>END ELSp INFCLINK«-KEEP*IF OCINPUT THEN 

TS*KEEP«12 ; 
IF XTAshBACKUP m THEN 
8E8TN 

FETCH; IF KEEP/O AND KEEPX18 THEN FLAQC37) ; 
IF tOG*XTA» h DISK " THEN KEE P *IF KEEP«0 THEN 22 ELSE 15 
ELSf IF T0G*XTA«"TAPE " THEN KEEP*IF KEEP*0 THEN 20 ELSE 6 
ELSE BEGIN 

TOG*XTA»"ALTERN"; KEEP*lF KEEP«0 THEN 25 ELSE 16 J 
END I 
IF TOG THEN FETCH; INFC .LINK*KEEP ; 
END I 
IF XTA s "UNLABE" THEN X FOR UNLABELED TAPES 

BFGIN IF KEEP ■ 2 THEN INFC tLlNK * 9; FETCHJ END* 



IF 
IF 
IF 
IF 
IF 



IF 



IF 



XTA 
XTA 
XTA 
XTA 
XTA 



"alpha 

"BCL 
"FIXED 
"SAVE 
"LOCK 



TOG 
TOG 
TOG 



" THEN 
" THEN 
" THEN 
" THEN 
" THEN 

XTA s 

XTA ■ 

XTA * 



fetch else if keep ■ 2 then alph ♦ h 

fetch; % for 83500 

fetch; % for b3500 

saver * replacement; 

begin spin «• 2; fetch end; 
"random" then t * 
"serial" then t ♦ 
"update" then t * 



MODE 



10 ELSE 
12 ELSE 
13; 



THEN lNFCtLlNK*T EL.SE FLAGC37); FETCH END } 



FLAG (37)7 



FLAGC37) 

6 MEANS 



IF 



B 

IF 

If 
if 

TOG THEN 

BEGTN IF KEEP.12 
XTA«"AREA " THEN 

BEGIN 

IF kELEPHI? ..THEN ... 

t*rfplacement; 

IF xTA»"EU " THEN 

IF I*REPLACEMENT>19 THfN 

ELSE ftEUNF'*'i*i'j«" 
IF yTA*"SPEED " THEN 

BEGIN 

fetch; 

IF NEXT»EQUAL THEN 
BEGIN 

FETCH; 

IF XTA,tl2*6]SSL0WV THEN 

IF I«-MAKEINT(XTA)>SLOWV 
ELSE 
ELSE IF XTA*"FAST " THEN 

ELSE IF XTA»"SLOW " THEN 
EL"Se"FL0S(37); 

fetch; 

END 

else flog (37)7 
end; 
if xta'^sensit" .then 

BEGIN 
T.SENSF«*i; 

fetch; _... 

end; 

FILFlNF0C3#INXFILH*T; 

end; 
xta ■ "block i" Then block 



X REW & LOCK AT EOJ 



EU NOT SPEC IF I ED 



THEN FLAGC37) 



T.SPDF*FASTV 
T f SPOF*SLOWV 



♦ '"REPLACEMENT i iC2T47l'nT" 



RECORD ♦• IF XTA»"RECORD" THEN REPLACEMENT ELSE IF CA THEN 10 ELSE IF TS 



02216000 


.J... 


0126 


02217000 


T 


0138 


02217050 


T 


0143 


022J7100 


T 


0144 


02217150" 


T 


0145 


02217200 


T 


0146 


02217250 


T. 


0149 


02217275 


T 


0153 


02217300 


T 


0160 


02217350 


T 


0163 


02217400 


T 


0167 


02217450 


T 


0167 


02217500 


T 


0170 


02218000 


T 


0176 


02219000 


T 


0170 


02220000 


T_ 


0174 


62221600 


T 


0182 


02222000 


T 


0183 


02223000 


T 


0185 


02224066 


T 


0187 


02225000 


T 


0190 


02226000 


T 


0192 


02227000 


T 


0201 


02228000 


T 


0205 


02229000 


T 


0205 


62236066 


T 


0212 


02230010 


T 


0213 


02230020 


T. 


0213 


02230030 




0215 


02230040 




0216 


02230045 




0217 


02230050 




0220 


02230060 




0225 


02230070 




0226 


02230080 




0226 


02230090 




0227 


02230100 




0227 


02230110 


0228 


02230115 




0228 


02230120 




0230 


62230125 




02 33 


02230130 




0234 


02230140 




0238 


"O22TOT5"0 




U242 


02230160 




0246 


02230170 




0247 


02110180 




MT _ 


02230190 




0248 


02230200 


T 


0248 


02230210 


0249 


02230220 




0249 


02230230 




0251 


02230240 




0252 


02230300 




0252 


02230400 




0254 


02231000 




0254 


02232000 




0257 



A 

buff 
if VT 



IF 
IF 
IF 

IF 



BU 

RE 

SA 

T«- 

B 

I 

E 



E 
ELSE 

B 
FILEI 

XITJ 



IF DE 
END F 



NO NOT 
<- IF 
A ■ "W 
FF<1 
C0RD<1 
VER>99 
INFC.L 

EG IN 
F ROOL 

ls f 

IF 

ND 

IF BLO 

EGIN X 

NFOCO, 

«SAV 

IF NE 

8FGIN 

Fit ETO 

PljTCP 

BUfiTOG 

ILfOPT 



(B00LEAN(8L0CK,[2U]>) THEN 10 & 1C2I47H3 ELSE 17; 

XTA * "BUFFER" THEN REPLACEMENT ELSE 2i 
pRKAR" THEN FETCH; X INGNORED* FOR 3500 
R BUFF>32 THEN BEGIN XTA*"BUFFER M ; FLAGU52) END ; 

THFN BEGIN XTA*"RECQRD"; FLAG(l52)END I 
9 THEN BEGIN XTA*"SAVE »; FLAGC152) END ; 
TNKbIO OR T»12 OR T«13 THEN XXX ARE IN DISK FILE 

FAN(REC0R0,C2J1])THEN BLOCK * 300 

BL0CK*BL0CKxREC0R0>l890 OR REC0RDM023 THEN 
BEGIN XTA^BK/REC** FLAGC152) END 

CK*BLOCKxRfcORD>1023 OR REC0RD>l023 THEN IF KEEP i 2 THEN 
TA*"BK/REC"J FLAGC58 ) END ELSE BEGIN RECQR0*257; BLQCK«-0END; 
INXFIL1 ♦ 0&BUFFC42«42t6]&REC0RDC30l36tl2]«BL0CKC18l36»123 
ERt6l36»l2]«SPlNt4U6»2]4ALPHt3U7lli; 
XT it SEMI THEN 

FL0GC37); DO SCAN UNTIL NEXT * SEMI; ENO) 
6 «• FALSE; X END SCAN MAInTAINENCE 
+ 2MNFC); 

THFN FLAGROUTINEC F lLE0% "PTION 'SFALSE) ; 
ION] 



77 IS 



02232010 T 


0261 




022 33000 T 


0265 




02234000 T 


0268 




02236000 T 


027Q 




02236010 T 


0274 




02236020 T 


0276 




02237000 T 


0279 




02237010 T 


0283 




02237012 T 


0283 




02237015 T 


0285 




02237CT20 T 


0285 




02237021 T 


0295 




02237030 T 


0297 




022X7040 T 


0297 




02237050 T 


0305 




02238000 T 


0310 




02239000 T 


0315 




02240000 T 


0318 




02241000 T 


0319 




02242000 T 


0322 




02243000 T 


0323 




02243010 T 


0325 




02244000 T 


0327 




334 LONG* 


NEXT SEG 


6 



PROCEDURE 

BEGIN 

RE 



doxopt; 




tream procedure scan(buf#id); value buf; 



0224500tt 
02245300 



lp#la,le»xit; 
di * id; DS * 2 lit M o H ; 

" THEN BEGIN Sl*SUi; GO 
»" THEN BEGIN Sl*SI*i; GO 



tj3 - 
TO 



lp; 
lp; 



"♦" THEN 



BEGIN 
"BEGTNT 



ds*chr; 

ds*chr; 



GO 
GO 



"A" THEN BEGIN 



LA« 
XlTt 

END 



-f-F — STTW^***- 

"iF'SCi"?" 

MIF SC « 
IF SC 



-THEN 



end; 

' G O T O 



di «■ id; 
Si*sui; 

go to xn; 



end; 
end; 
end; 

__ END;" "• ' 

DS ♦ 8 LIT "♦0000'0'01"T 



TO 
TO 



xit; 
xit; 



^ 



ovi^eo 08 8 4 5 600 

"StTRTUf" SEGWRT 

02245900 

02246200 

"*"' 02246530 

02246800 

02246900^ 

47000 



rct*- 



T II IO is > W A W - 



THEN 60 TO LE;X THIS IS > «J« 
« ALPHA THEN DS ♦ CHR ELSE JUMP OUT); 
ALPHA THEN BEGIN SI*SI*U GO TO LA; END; 



02247100 
02247200 

02247400 
02247700 
22 4780 6- 




T 04*2 
T 049? 

******** 

T 

T 
Y 

T 
T 



T 00 
T 0009 

T 0010 
T 0010 
* WH-0 



t' 



SCAN 

scan; 



«. si; 



02247900 


T 


0011 


02248000 


T 


0012 


02248300 


T 


0014 


022W6O0 


T 


0XJT5 


02248900 


T 


0015 


02249200 


T 


0016 



REAL STREAM PROCEDURE GETVOIOCBUF, VOlDSEQ'FR) ; VALUE BUF,FR; 
BEGIN LABEL L»LC,LO#LE,X IT; LOCAL TA; 

Si t * BUF 1 DTt a vo I OS'E'ff j DS il»8L I f * ° 1 Oil 

LI IF SC • " " THEN BEGIN S I «• S I ♦ 1 1 GO TO LI 



VOID SE "07" 

eno; 



02249500 T 0017 

02249800 T 0017 

02"250TOO ~t OUir 

02250400 T 0020 



« . . « 



Lc» 
LF» 
Ln« 



TA * SIJ 

IF SC ■ """ THEN 

BEGIN 9CSUSI + 1J 

IF SC * ""« THEN BEGIN SI»SI*1I JUMP OUT TO LC; END 
ELSE TALLY * TALLY +1); 
TALLYl»TALLY + 63; Si 1 ■ T A -» SH-3I + 1J GO TO LE; 

end; 

if sc < *0" then go to ld) 

dSI»BLIT"0») 

8(Sii*SI + 1j DIl-OI-U TALLYI.TALLY + U 

if sc lss *o* then jump out); 

SI ♦ TAJ 

TAI. TALLY) OSl*TA CHR; GETVOlOl«SI) GO TO XITj 

GEtVOlb»»Si'i 

FR(DSt»«8LlT"9"); 



y It * 

.I.N.D GXT.Y.O.IM 



real stream procedure seqnumc buf# vlu ) i value buf; 
begin label l>la,lc; local ta/tb; 

si ♦ buf; 
l« if sc a " " then begin si+si + u go to l; end; 

IF SC = W * M THEN BEGIN S I *- S I ♦ 1 ; GO TO L) END; 

TA + Si; 

IF SC * "♦" THEN 

BEGIN SI*Sl + ll - 

LAi IF Sc « « » THEN BEGIN SI«-SI + 1) GO TO LA;END; 

TB ♦ si; 

IE Sc I" < ~"»"0'" THEN BEG I N SI *T A ) ' GOTO LCI YRXTi 

di*tb;ta*oi; 
end; 

8(if sc < "0* then jump out to lc' 
tally*tally+i; si*si*inj 

LCl Tl «. TALLY; SEQNUM ♦ Si) 

si * ta; Di* vlu) ds * T8 dct; 
eno seonum; 



022505.00 T 


0021 


02250700 T 


0021 


02831000 T 


0022 


02251300 T 


0023 


02251600 T 


0025 


02251900 T 


0023 


02252200 T 


0026 


022525T5TT T 


ff0T6~ 


02252600 c 


0027 


02252800 P 


0028 


02 2 52850 C 


0029 ~ 


02252900 T 


0031 


02253100 T 


0031 


02253400 T 


OTO 


02253700 T 


0034 


02254000 T 


0036 


02254300 T 


0036 


02254600 T 


0038 


02254900 T 


0038 


02255200 T 


0038 


02255500 T 


0038 


02255806 t 


0040 


02256100 T 


0042 


02256400 T 


0042 


02256700 T 


0042 


02857000 T 


0043 


02257300 T 


0045 


02257600" T 


W43 "" 


02257900 T 


0047 


02258200 T 


0047 


02258500 "f 


0047 


02258800 T 


0049 


02259100 T 


0049 


02259400 T 


0050 


02259700 T 


0051 



ftCAU''s^REAM"7nRo"C'E:Duwr'"fi[Kffl'srir5^T — 

BEGIN SI * S; SUSI + 1) MKABS * SI) 

Dl ♦ s; 9JD1 * DI + 8)) OS ♦ LIT "C") 

E No MKABS) 



52260000 f 0652 

02260300 T 0052 

22260600 T 0053 

02 2 6 69 00 i~ T ~ C 1 5 5 



STREAM PROCEDURE MOVEW(P,Q); VALUE QJ 

begin st*pj or + sr~B5«-eHwrT¥o _ 7 



02260925 T 0056 
0T2W93ff ~T — 0656" 



REAL BUF#ID# 




MAMf? 



/ 



VMP&/ 



02261200 T 0058 



OVtio {$&€> 




m 



BOOl EAN VAL> SAyELISTOGj 
LABfL LP*SET*RESEt> HU B WE ; 
FORMAT WARN(X18*A6»" ILLEGAL 

"WARNING"); 

DEFtNE GETID * BEGIN 10* " 
-LE-fiC lNPUf f il tN SO I C WffCJ 



CONSTRUCT ON DOLLAR CARD XXXX"*X39, 



"J BUF «■ SCAN(BUF^ID) ENO#; 



BEGIN 



SAVELTSTOG «■ LISTOG; 

M0vEWfCR0C9]»BUFL)j 

BUF «• MKABS(CRl£OI)i 

GETIDJ 

IF ID * "VOIO " THEN 

BEGIN BUF ♦ GETvOlDCBuF, 

END ELSE 
IF ID ■ "VOlDT " THEN 
BEGIN. BUF t..fi£lVDlb(eUF« 

END ELSE 



02261500 P 

02261800 P 

02262100 T 

START OF SEGMENT ** 
02262400 f 
79 IS 15 LONG* 

02262700 T 

: - 02562725 C 



V0I0SEQ#0)| VOIDTOG ♦ TRUE 



V0lD.TSEQ.fQlJ VGIDTTOG ♦ TRUE 



SET! 



RESETl 



LP« 



TAPET0G.C47IU <• LASTMODE ■ 2j 
IF ID ■ "SET " OR ID ■ "♦ " THEN 

BEGIN GETID; VAL* TRUE END 
ELSE 
IF ID * "RESET M OR ID " "» " THEN 

BEGIN GETIO; VAL ♦ FALSE END 
ELSE 
BEGIN 

TSSMESTOG * VAL; TSSEDITOG * VAL; CHECKTOG 
SINGLET0G*N0T VAl; HaLTOG*VAL; 

list0g*val; codetog * oebugtog * val* 

prtog«-val; oolist*val; libtape*val; 

LisTPTOG * VAL) freeftog ♦ XREr * VAL 

val ♦ true; 

end; 

if id > then 

BEGIN 
IF ID 



s, 






newtptog * val; 
segptog*val; 

; " 



IF 

IF 

IF 
IF 

IF 

IF 

IF 

IF 
IF 

IF 



"TRACE " THEN 

begin prtog+val; listog+val; codetog*debugtqg*val; 

END ELSE 

ID * "CARD " THEN 

BEGIN TAPeT0G.C47IU*N0T VA|_; LASTM0DE*2"REALC VAL '")'" 

ID ■ "TAPE " THEN 

BEGIN TAPET0G.C47U] * VAL? LASTMODE * REAL(VAL)+H 



END ELSE 
END ELSE 



ID 
ID 
ID 
ID 
ID 
ID 
ID 



"NOSeQ " THEN SEQTOG * FALSE ELSE 

"SET " OR ID ■ "♦ " THEN GO TO SET ELSE 

"RESET " OR ID * "- " THEN GO TO RESET ELSE 

"ONSlTE" AW NOT "REMFTxED THEN REROTfTOS "* TACSr ELSE 

"REMOTE" AND NOT REMFIXEO THEN REMOTETOG * VAL ELSE 

"FREEFO" THEN FREEFTOG ♦ VAL ELSE 

"SINGLE" OR ID ■ W SGL "THEN" 



BEGIN SINGLETOG ♦ VAL; LISTOG * TRUE; END ELSE 
ID « "NEW " OR ID * "NEWTAP" THEN 
"B I G i I NX rB T*FE «• V A L ; NEW TPTOG *V A L") NTA PTO <J * TRO El 
IF ID ■ "NEW " THEN 
BEGIN 

""'GET ID"? " " "~~ ""'" "' 

IF ID i "TAPE " THEN 



0058 
0058 

0058 
******** 

0058 
NEXT SE6 

oos;a 

0058 — 




79 
78 



02262775 c 0059 

02262800 T 0060 

U22630WT 001? 

02263300 T OQjrfji 

02263600 T 0066 

02763900 T 0067 

02264200 T 007l 

02264500 T 0072 

Q2J26JU30JQ i 00X5 

02265100 T 0079 

02265400 T 0080 

02265700 p 0082 

02267200 T 0084 

02267500 T 0086 

02267800 T 0090 

02268100 T 0090 

02268400 T 0095 

02268700 T OlOo 

02269000 T OtOO 

02269300 P 0104 

02269*0° P °1°9 

02269900 T 0113 

02270200 P 0118 
02270500 T 0125 

02270800 T 0129 

02271100 T 0129 

02-271*00 f 0129 

02271700 T 0130 

02272000 T 0131 

02772 300 "T 0132 

02272400 T 0137 

02272500 T 0137 

02272510 P 0139 

02272550 T 0143 

02272560 T 0145 

022F?S"00"T 0T49 

02272900 T 0154 

02273200 T 0157 

U2T735TJ0 T 0160 

02273800 T 0165 

02274100 T 0J75 

022 74 400 T "0180 

02274700 T 0183 

02275000 T 0187 
02275100" P~ 0192 

02275120 C 0198 

02275140 C 0199 
02 275 ISO C "0199 

02275180 C 0202 



ftctcl,?'/ 



» » • • 



m 



t 



^ 



ENDl 



IF 
IF 
IF 
IF 



GO TO LP) 

end; 

END ELSE 
ID * "LIST " 
ID » "SEQXEQ" 
ID * "PRT " 
ID » "DEBUGN" 



THEN LISTOG ♦ VAL ELSE 
AND NOT SEGSWFlXED THEN 
THEN PRTOG * VAL ELSE 
THEN 



SEGSW ♦■ VAL ELSE 



BEGIN LlSTOG*VALJ CODETOG«-VaL; PRTOG ♦ VAL END ELSE 



IF ID » "TIM E 
IF ID * "ERRMES" 

IF ID I « HfSSEDI*' 
IF ID ■ "LISTLI" 

IFClO ■ ••SEGMEN" 

BEGIN ADR*ADR+1 j SEGOVFJEND ELSE 
IF ID « "PAGE " AND VAL THEN WRITE (LINE CPAGE J ) 
IF ID * "VOID " THEN 

lEGIM YQlDllM. feJSuUJ- 



THEN TIMETOG ♦ VAL ELSE 
THEN TSSMESTOG * VAL ELSE 
THEN fSSEDlTOG * VAL ELSE 
THEN LISTLIBTOG «• VAL ELSE 
OR ID » "5EG M ) AND VAL THEN 



ELSE 



IF 



END 

ID i 



IF VAL THEN BUF * GETVOIDt BUF» VOIDSEQ* 1 )J 
ELSE 
"VOlDT 



THEN 
BEGIN VOIDTTOG ♦ VAL/ 

IF VAL THEN BUF 
END ELSE 
IF ID a "LIMIT " THEN 
BEGIN LIMIT I* IF VAL 

BUF I* SEONUM(BUF,LIMlT); 
IF LIMIT LEO ERRORCT THEN 
END ELSE_ 
IF ID * "XREF M THEN 
BEGIN 

PXREF * TRUE) 
END ELSE 

if id * "seq " then 
begin segtog «■ val; 
if val then 
begin seobase * seqincr * 0| 

buf ♦ seqnum(buf#seqbase); 
but * seqnum'cbuf/seqincR); 

IF SEQINCR i THEN SfQINCR 



«■ getvoidcbuf#voidtseq»d; 



THEN ELSE P60; 



GO TO POSTWRAPUP; 



xref * val; 



tooo; 



V7\ END 
.tfV \IF I 



END 
D * 



D 

IF ID 
IF ID 
IF ID 

BEGIN 



ELSE 

"LISTDO" 
"HOL " 
"CHECK " 

"NEWPAG" 

"LISTP 



THEN DOLIST ♦ VAL ELSE 
THEN HOLTOG * VAL ELSE 
THEN CMECKTOG ♦ VAL ELSE 
THEN SEGPTOG «• VAL ELSE 
THEN LlSTPTOG » VAL ELSE 



TrTrRSTCALL THEN DATIMEJ 

IF UNPRINTED THEN BEGIN PRINTCARDJ UNPRINTED*FALSE 

IF SINGLET06 THEN WRlTE<Ll NE# WARN* ID ) 

ELSE WRITE„(RITE»WARN,ID?; 

END 

; 

GET ID i 

go to lp; 

end; 

IF DOLIST b^XrtT0F'0R""SAVELTST06~fHEN 
IF UNPRINTED THEN PRlNTCARD; 



end; 



0.2275200. 
02275220 

02275240 
02275300 
"02275600 
02275900 
02276200 
02276500 
02276800 
02277100 
02277400 
02277700 
02278000 
02278300 



02280400 
02280700 
02281000 

02261300 
02281600 

02282500 

02282800 

02282850 

02282900 

'02282950 

02283100 

02283200 

02283300 

02283400 

02283700 

02 12 840 00 

02284600 

02284900 

02285200 

02285500 

02285800 

02286100 

02286400 



T 
T 
T 
f 
T 
T 
f 
T 
T 
f 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
P 



02286700 
02287000 
02287300 
02287600 
02287900 

02286200 

Q.228_ej5.0JL 

02288800 

02289100 

022.89400 

02289450 

02289500 



0203 
0203 
0203 
0203 
0812 
0218 
0223 
0225 
0230 
0235 



0240 
0245 
0250 



02278600 


T 


0256 


02278900 


T 


0264 


il227-9200 


-X 


BjA/ 


02279300 


T 


0270 


02279500 


T 


0273 


02279800 


T 


0273 


02280100 


T 


0275 


02280300 


T 


0278 



0281 
0281 
0283 
0286 
0289 
0292 



0295 
0296 
0298 
0298 
0301 

0304 
0304 
0306 
0308 
0311 
0313 
0313 
0318 
0323 

0328 
033*3 



0338 
341 
0345 



. A . 1 

0362 

0362 
362. 
0365 
0367 
0367 
0367 
0369 



X 




/*&/ffc 



UNPrINTED 
iQN O Rg l " 



<• TRUE* 



end ooldpt; 



02289600 T 



0371 



02289700 T 0374 
78 IS 377 LONG* NEXT SEG 



•■ f4£tk6 1* 



STREAM PROCEBURE NEWSEQ(A,B>; VALUE B) 
BEG?N 

si «■ loc b; "b'i ""♦ a; ds * a dec; 
end newseq; 



02317000 T 0492 

02318000 T 0492 

OT31W0U T 04T2 

02320000 T 0492 




INTEGER .STREAM P:ROCE.Q.URi:.S£fl.C.HK..C.T.tC).; 

BEGtN 

si mj oi ♦ c; 

IF 8 SC < OC THEN TALLY *■ 4 ELSE 
BEGTN 

SI «• SI - 8; DI «• DI - 8; 

IF 8 SC *DC THEN TALLY ♦ 2 
ELSE TALLY * 3J 
END; 

seqchk ♦■ tally) 
end seochk; 



023.21000 


...T.:. 


.11193 


02322000 


T 


0493 


02323000 


T 


0493 


02324000 


T 


0493 


02325000 


T 


0494 


02326000 


T 


0494 


02327000 


T 


0495 


02328000 


T 


0495 


02329000 


T 


0496 


02330000 


..... 


0496 


02331000 


T 


0496 



^SV 



■jtM 




BOOLEAN PR OC E OR ET RE *D A C A RTJ J 

BEGIN 

DEFINE FLAGICFlAGII) * BEGIN FLAGCFlAGI 1 >J GO TO E4AJEND *} 

REAL STREAM PROCEDURE SCANlNCCBuE* ID*RESULT#N#M)1 

VALUE buf*m»n; 

BEGTN 

LOCAL ta; 

LABEL LP'LQ'Xn; 

DI »* RESULT; DI ** 01 *7t 

si t« buf; 

LPi IF SC ■ " " THEN BEGIN Si l» Si ♦ 11 GO TO LP! END! 
,1 IF SC" '* ALPHA TflFN EL3E~BE G IN OS » »C IT " I " i DT rWTVT TJS i *^2L IT"© 1 

AjK ds «■ chr; ds to slit" "igo to xit; end; 

v> IF SC LSS "0- THEN DSl»LlT "2" ELSE DSi«LIT M 3«; 

" N ( DI » «TDl "US TST L IT "0 *»T"ffITiTn-7~r" "" 

7(IF SC»ALPHA THEN DSlaCHR ELSE JUMP OUT 2 TO XIT); 
JU«P OUT TO XIT); 

w - f 8 x if sc rss *tt» t hfn - uuwp -out - 2 tttlq ? ~ " ~ ■ 

IF Sc GTR "9" THEN JUMP OUT 2 TO LQ! 
SU=SI + i; TALLY«*TALLY+1)); 

lOi ta ** tally; 
si «* si " ta; 
di «* id; 

bs" t« Ta OCT; t 

xiti scaninc is si; 



T)233Z00tX 
02333000 
02333050 
START OF 5FGSENT 
02333100 
02333120 
02333140 
02333160 
02333180 
02333200 
02333210 
02333 220 
r~ " U2333Z4TT 
02333260 
02333270 
023T3280 
02333300 
02333320 
07333360" 
02333370 
02333380 
02333400 
02333420 
02333440 
0233T460 
02333500 



T 0497 
T 0497 
T 0497 



80 



T 

T 
T 
T 

T 
f 

T 

T 

■ F 

T 

C 

p- 

T 
T 

p 

C 

P 
7 
T 
T 
7 
T 



0000 
0000 

oobo 

0000 
0000 

0000 
0000 
0000 

ow? 

0004 
0006 
0OXJ7 
0010 
0012 
0013 
0016 
0017 
0018 
0019 
0019 
0020 
0020 



END SCANINC; 



02133520 T 0021 



REAL STREAM PROCEDURE MKABSCS)) 

BEGTN SI »• S; SI !■ SI + i; MKABS l« $11 END; 



02333540 T 0022 
02333550 T 0022 



STREAM PROCEDURE M0VE(P» 
BEGIN ST ♦ p; DI * QJ DS 
DI «■ Pi DS «.' LIT *j'""j" 
END MOVFi 



Q); VALUE 
♦ CHRi 



q; 



02334000 T 0024 

02335000 T 0024 

T 0025 

T 0026 



02336000 
02337000 



stream procedure movec(c*b)j 
begin si«-b; di«-c; ds«-chr; end; 



VALUE B) 



02337100 T 0026 
02337200 T 0026 



BOOLEAN STREAM PROCEDURE GETCOLl CBUF ) ; 

BEGTN 

SI «• BUF; IF SC « «$» THEN TALLY * U 
GETC0L1 "♦ TKliVI 

END; 



0233800a 


T 


0028 


02339000 


T 


0028 


02340000 


T 


0028 


02341000 


T 


0029 


02342000 


T 


0029 



STREAM PROCEDURE TSSEDITS< C*P)i BEGIN Si*CI 
IF SC = W C M THEN BEGIN Dl*P; Dl*Dl+lJ DS*LIT"< 
IF SC*"j w THEN BEGIN Sl*SI+5J IF SO"' " THEN 
DS«-6LiT«- " END END" END OF TS'sTdTT'S' V~ 



Dt*PJ- 0-S*10*0S* st*e r 
■" END ELSE 
IF SC^O" THEN BEGIN DI«-PJ 



023-42010 


T 


0030 


02342020 


T 


0032 


02342030 


T 


0034 


75 2 342040 


T 


"0017 



stream procedure m0vew(f# t»b#r ) i value b» rj 

" begtn 

label xit; 

si * f; di ♦ t; 

B( 
2C40C 



IF SC ' 

IF SC ■■ 
IF SC * 
SC * 
SC ■ 
SC i 
SC ■ 
SC * 
SC""""" 
SC * 



IF 
IF 
IF 
IF 
IF 
IF 
IF 



ALPHA THEN 
" " THEN DS 
THEN 
THEN 
THEN 
THEN 
THEN 
THEN 

THEN 
THEN 



DS ♦ CHR ELSE 
* CHR ELSE 



W [ W 

T 

W|W 
W#W 
«|H 

"W^w 
w>w 



BEGIN 
BEGIN 
BEGIN 

begTn 

BEGIN 
BEGIN 
BEGIN 
BEGIN 



DS 
DS 
DS 
OS 
OS 
DS 
DS 
DS 



LIT 
LIT 
LIT 
LIT 
LIT 
LIT 
LIT 
LIT 



"C M J 

W)H, 

w + wj 
www | 

WW W J 

______ 

w„w; 



SI 

SI 

SI 

SI 

SI 

SI 

31" 

SI 



'SX'+V 
SI + 1 
SI + 1 

si+r 

SI + 1 
SI + 1 

_ s ___ 
si+i 



END 
END 
END 
END 
END 
END 
END 
END 



ELSE 
ELSE 

ELSE. 
ELSE 

EUSE 

Ei-JJE 

"EUSE 

ELSE 



02343000 


T 


0039 




02344000 


T 


0039 




02345000 


T 


0039 




02346000 


T 


0039 




02347000 


T 


0039 




02348000 


T 


0040 




02349000 


T 


0042 




02350000 


T 


0043 




02351000 


T 


0045 




02352000 


T 


0047 




02353000 


T 


0049 




02354000 


T 


0051 




02354100 


T 


0053 




02355000 


T 


0055 




02356000 


T 


0057 





X IT * 



DS 
DS 



CHR ))> 

10 wds; 



JUMP OUT TO XIT)J 



END 



SI«-LOC 
DS«-CHR 

movew; 



r; 



Si*si+7; di*di+i ; 



02357000 


T 


0059 


02358000 


T 


0062 


02359000 


T 


0062 


02360000 


T 


0062 


02361000 


T 


0063 


02362000 


T 


0064 



alpha stream procedure ocmovew(f>t/b>fil'R)t value bvfiur; 
begin local c; label l1»l2#l3>l* * 
si*f; di*t; 2<si*si+36; ds*36liT" ">j c*si; ds*bchr ; 

SI4-1 OC Rj S1*SI*6j-"0'S»2CHR; DI*CI D$*8LIT"J"JTALLY*33;sI>FJ 
IF SC ■ " " THEN %%% IT MIGHT BE A FILES CARD. 

BEGIN SI*SI+i; IF SC* M F M THEN 

bcgIn :..ai:*.tac.iF.iti 01*01*2; if: 5sc*0£THEn ~ 

BEGIN DI*F; SI*LOC FIL* Sl*SI + 2; DS«-6CHR i GO TO LU END 
ELSE SI+F ENo ELSE Sl*F END 
ELSf IF SC ="F W THEN BEGIN Dl«-LOC FIL;0l*DI + 2 J IF 6SC«DC THEN 60 

ELSE Si*f;end 
ELSf IF SCs"-" then 

BEGIN %%% IT IS A CONTINUATION CARD, 
DI*T; DS*6LIT" *" ; 
" THEN SI*SI+1 ELSE JUMP OUT)* GO TO L2 i 



LI 



ELSf 



IF 



THEN 

IT MIGHT BE A COMMENT CARD. 

IF 3C»*-* THEN" 60 TO LI ELSE SI*F ) 



si*si+i; 

5CIF SC« H 

END 

IF SC«"C M 

BEGIN %%% 

Sl*Si+i} 

END I 
SC*"S° THEN 
BEGIN 

2C33CIF SC 

5(IF SC» W " THEN SI*SI+1 ELSE IF 
THEN DSVCHR ELSE :"""JUMP '""OUT ELSE 



%%% 

%%% 



IT 



IS 

A 
THEN 



NOT A COMMENT CARD* NOR IS IT A $ CARD* 

C ONT I NU ATToN CARD* "N'OF T TI LES CARD. 

SI*Sl + l ELSE JUMP OUT 2 TO L3))J L3I DI«-T; 

SCi"0" THEN IF SCS"9" 

JUMP OUT) "'} 



ELSF 



DI*TJ 

END 



DI«-DI + 6; IF SC»" " THEN SI*SI+1 ) 



BEGIN 

lu si*f; 
end ; 

C*TALLY ; 
S£>">" 

SC« M # W 

SC« ,, 8 M 
■Scpwyr 

Sc*"* w 



di*t; tall**36 ; 



L2I 
P(2(C(IF 

IF 

IF 

IF 

IF 

IF 

IF 

IF Sc« M > w 

IF SC""C" 

IF SC*"]" 
2(CfIF SC*"]" 
L«» DI*LOC 
6(IF SC« M 3 W 
END OF 



THEN 
THEN 
THEN 
THEN 

then- 
then 

THEN 



DS*CHR ELSE IF 5C< H t" THEN OS*C_HR 

'bcsTn ~o s Vti't"'" c'»i" '" si'i'sT+T end" 



ELSE 



THEN 
THEN 
THEN 
N 
0CMOVEWJ 
THEN JUMP 
OCMOVEW T 



DS*LIT"nti; 

DS«-LIT" + "; 
05"*LIT" W "I 

os*lit mhm ; 
ds*lit«+»; 

""Cj+i IT "i-J 

ds*lit-)«; 

OUT 3 TO L4 
2 TO L« ELSE 
DS*8LIT"00 "I 
OUT ELSE DS*CHR) J 



BEGIN 
BEGIN 
BEGIN 
BEGIN 
BEGIN 
BEGIN 
BEGIN 
JUMP 



SI*SI+1 
5I*SI+1 
$1*5 ITl 
SI*Sl+t 
SI*SI*1 

s'i*si+T 

SI*SI*1 
ELSE 



ENO 
END 



END 
END 
ENO 

END 
END 

ds«-chr));jump 

0S*CHR)T ) 

di*oi-6 ; 



ELSE 
ELSE 
ELSE 

ELSE 
ELSE 

ELSE 
ELSE 



OUT TO L4)J 



02362010 T 0064 


" 


02362020 T 0064 




02362030 T 0065 




02382033 T 007j 




02362034 T 0074 




02362035 T 0074 




az3&2&i6:t QQ7.4 


" "■ " 


02362037 T 0077 




02362038 T 0079 




02362040 T 0080 




02362041 T 0082 




02362042 T 0083 




02362044 t 0084 




02362050 T 0084 




02362060 T 0086 




02362W3 f 0088 




02362066 T 0088 




02362070 T 0089 




O2362W0 T 0089 




02362090 T 009i 




02362100 T 0091 




02 362110 f 009T 




02362120 T 0Q9i 




02362130 T 0095 




02362140 f 0O97 




02362150 T 0100 




02362160 T OlOl 




021621715 ~'f OiOi 




02362180 T OlOl 




02362190 T 0101 




02362200 T 0102 




02362210 T 0102 




02362220 T 0103 




02362230 T 0107 




02362235 T 0109 




02362240 T 0111 




CT2362245 f " 0111 




02362250 T 0115 




02362255 T 0117 




02362260 T 0119 




02362265 T 0121 




02362270 T 0123 




0-2362175 ~f 0121 




02362280 T Ol3i 




02362285 T 0133 




02362290 r 0136 





m 



STREAM PROCEDURE SEQERR(BUFF» NEW, OLD); 
BEGIN 



Dl «• 

SI «■ 

DS «• 

DS ♦■ 

Si * 

DS «• 

DS * 

DS * 

END seqfrr; 



"; 



buff; ds * 18 lit 
new; ds * lit" ww ; 
8 chr; ds 

3 LIT " < 

old; ds ♦ 
8 chr; ds 

59 LIT «" 

8 lit M x"; ds * n 



SEQUENCE ERROR 

* lit w " w ; 



lit "••*; 
* lit MW "; 



"J 



LIT " "; 



02362300 

02362400 
02362450 
02362500 
02362550 
02362600 
02362650 
02362700 



02362750 
02362800 
Q2 J628 50 



0137 

0137 
0TI7 
0139 
OHO 

6 i 4 i 

0142 
0142 

014 3 

0151 

PI 5! 



STREAM PROCEDURE DCMOvE(E#C, A#N )i VALUE A#N; 

begin Sf+c; di*e; dsmowds; ds«-4Chr; si*loc a; ds«-4dec; 

N(DS*8LIT W PATCH"); END; 



02362855 T 0153 
02362860 T 0153 
02362865 T 0155 



REAL BUF»I0; 

BOOLEAN NOWRi; LABEL ENDPB, 

LABFL LIBADD* ENDPA, E4A> E4> 

LABEL Ei>E2>E3>STRT,ENQP*XIT; 

UNPRlNTED*TRUE i 

60 To strt; 
LIBaDD* 

xta i* blanks; 

if insertdepth « -1 then 

move (crdc9],bufl); 



IF 



E4s; 
strta; 



SAVECARD «" NEXTCARD' 



CINSERTDEPTH t* INSERTDEPTH + 1) GTR INSERTMAX THEN 
FLA6I(158^; 
NEWTPTOG '* FALSE; 
INSERTINX *« -i; 
INSERTCOP «■ 0; 
BLANklT(SSNM"c'5JM*0); 

buf i* scaninccbuf,insertmid»result»i»o>; 

IF RESULT » l_ANp INSERTMId ■ "♦ nHEN 
B E S I N B U F ♦■ S CAN IN C t B U"F # ID # R E S U L t 

IF ID ■ "COPY " THEN INSERTCOP !■ 1 

ELSE FLAGIC155); 
IUr*SrA^rNCrBW^INSERTMTDVRESUtTV 1 »otj 



END* 

IF RESULT 



NEQ 2 THEN FLAGI (155); 



buf * ^caninc(buf#id#reWlT/o*T)"; 

if result ■ 1 then if id * "/ " then 

begin. buf «■ scanjnc(bufmnsertf jd#resulj»1#0); 

if result neq 2 then flagi(i55); 
, buf ♦ scaninc(buf#i0»resui.t#0»1); 
end els_e_ insertfio »« time(-_1) else insertfid 

IF RESULT "i" 3 Wen" " ~ " ""' 

/BEGIN NEWSEQ(SSNM[53#ID); 



*« timecd; 



02362900 T 


0158 


02362902 T 


0158 


02362950 T 


0158 


02363000 T 


P15J 


02363100 T 


0158 


02364000 T 


0160 


02364100 T 


0161 


02364130 T 


0162 


02364160 T 


0162 


02364240 T 


0165 


02364280 T 


0166 


02364300 T 


0166 


02364320 T 


0168 


02364330 T 


0169 


02364340 T 


0171 


02364350 T 


0173 


02364360 T 


0175 


02364380 T 


0177 


02364381 T 


0181 


0236^362 f 


0184 


02364383 T 


0187 


02364384 T 


0190 


02T6TJ8!T f 


T3195 ~ 


02364386 T 


0199 


02364400 T 


0199 


02364420 P 


0201 


02364440 T 


0204 


02364460 T 


0206 


02364480 T 


0211 


02364500 T 


0215 


02364520 T 


0218 


02364"54C : T 


0224 


02364560 T 


0225 



/ 



™W 




tr J 



<$ 



V! 



H 



$ 



5° 



1/ 



fr 



•> 



o 



V 



BUF 
IF 
IF 



♦ SC AN INC (BUFMO, RESULT* 0> 1)1 
RESULT NEQ 1 THEN FLAGI(156)J 



ID 



3 



THEN NEWSEQ C INSERTSEQ#99999999 ) 



ELSE, BEGIN 

lUr< SCANINC(BUFMD#RESULT»0M); 
IF RESULT NEQ 3 THEN FLAGIU57H 
NEWSEQ CINSERTSEQ*ID>* 
•END 

END ELSE IF ID * "3 " THEN NEWSEQC INSERTSEQ, 99999999 ) 
EL?E FLAGI (157); 
IF INSERTDEPTH > THEN CLOSE CLF* RELEASE ">J 
FILL LF WITH INSERTMIO* INSERTFID; 
DO BEGIN 

READ (LFCINSERTINX "♦ INSERTINX* 13 » 10#DBt * 3 ) t E4 3) 
END UNTIL SEQCHKCSSNM[5]*DBC93) NEQ 3; 
NEWTPTOG «• BOOLEAN(INSERTCOP)) 

IF- N&T-NE.W.TBT04--T44E-N 

BEGIN 

if seqtog then 

begin mews£q(cr0t9]*seq8ase); m0ve(crd[9]»bufd; 

seqbase*seqbase+seqincr; 
end; movecccrdc9],bufl); 

IF LIBTAPE ANDUNSERTDEPTH a ) THEN WRlTEC NEwTaPE* 10#CRDC * 3 ) j 
END* 

if listog or dolist then printcaro* 
nextcardist; 
go to strt; 
ell if nextcardm then if tapetog then 

BEGIN 

NEXTCARD«-S; REAOCTP* 10,TBC * 3 ) t E23J GO TO STRT ; 

END 
ELSE 

BEGIN 
NEXTCARDl*6; 
IF GETC0L1CCRD[0]) THEN BEGIN BUF 1= MKABSCCRDC03 ) ; 

BUF*SCANINC(BUF,ID#RESULT#1»0>; IF ID NEQ INCLUDE 

THEN BLANKIKCR0»9#1>; END; 

GO TO ENDP ; 

end ; 

NEXTCARD * 5; GO TO ENDP* 
E2» IF NEXTCARD*5 THEN 
BEGIN 
N£XTCARD»*6; 
IF GETC0LiCCRDt03) THEN BEGIN BUF I* MKABSCCRDt 3 ")I 
§UF*SCANINCCBUF,ID*RESULTM#0); IF ID NEQ INCLUDE 
THEN BLANKIT(CRD»9»1); ENO; 
END 
ELSE IF NEXTCARD/2 THEN NEXTCARDM ELSE 
BEGIN 

NEXTCARD*!; TAPETOG'BOOLEAnC;?); READ(Cft/10*C"Br*T)r£13 ? 
END ; 
IF VOIDTTOC THEN IF SEQCHK (CRDC93 » VOlDTSEQ ) < 4 
THEN VOiDTTOG»*FALSE 
ELSE BEGIN V0IDTT06I«FALSE; QO TO STRT; END; 
GO TO ENOP_* 
E4Bi NOWRI ifRUET 

IF SEQTOG THEN NEWSEQC CRDC93 > SeQBASE ); 



02364580 
023646X30 
02364605 
02364610 
02364620 
02364640 
02364660 
02 364670 

02364680 
02364700 
0216 4720 
02364740 
02364760 
02364780 
02364800 
02364810 
0*164*41 
02364815 
02364820 
02364830 
02364840 
02364850 
02364860 
02364885 
02364890 
02364900 
02364910 
02365000 
02366000 
02367000 
02368000 
02 369000 
02370000 
02371000 
02371002 
02371004 
02371006 
02371010 
02371020 
02372000 
02372010 
02372020 
02372030 
02 372040 
02372050 
02372060 
02373000 
02373010 
02373020 
023731)30 
02373040 
02373045 
02373100 
02373200 
02374000 
"02374050 
02374053 



T 
T 
C 
C 
T 
T 
T 
C 
T 
T 

"f ' 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
P 
P 



0227 
0230 
0232 
0235 
0239 
0242 
0244 
0246 
0246 
0249 
0254 
0257 
0263 
026 3 
0272 
0275 
W# 

0279 
0280 
0280 
0283 
0285 
0286 
0291 
0292 
0295 
0296 
0296 
0298 
0299 
0305 
0305 
0305 

0306 
0306 
0310 
0314 

0316 
0317 
0317 
0318 
0319 

0320 
- mi - 

0325 
0328 
0330 
0330 
0333 
03T3 
0340 
0340 
0343 
0345 
0349 
0349 
0350 



«» • 



r 



E4I 



IF N£H.TETaflL r .TH£N IF TSS.EDITQG THEN _ „ , 

BEGIN TSSEDITS(TCRD#PRINTBUFF); WRITECNEWTAPE* 10* PRINTBUFF C *3 ); 

END ELSE WRITE(NEWTAPEMO#CRDC*])J 

CLOSE (LF#RE| B EASE); 

NEWTPTOGI* SAVETOGJ 

IF (INSERTDEPTH «» INSERTDEPTH - 1) » -1 THEN 

BEGIN NEXTCARO ♦ SAVECARDJ GO TO ENOPA; END 

ELSE TCEWTPTOG ♦ BOOLEAN UNSERTC0P3 J 

FILL LF WITH INSERTMID* INSERTFIDJ 

READCLFCINSERTINX l* INSERTINX + 13*10*DBC*3)CE43J 

IF SEQCHKfTNSERTSE(3,bBC93 ) « 4 THEN GO TO | £4) 

GO TO ENOP; 



E4Ai 



N E W "T P T 6 *1 A VET 6 6'i 
IF (INSERTDEPTH t « 



S.T.8T 
STRT 



BEGI 



IF (INSERTDEPTH t « INSEHTOEPTH-l > ■ 

ELSE NEWTPTOG . ..* BOOLEAN (.1 NSER.TCOP); 

l ,..,„ 



INSERTDEPTH-1) ■ -1 THEN NEXTCARD I «SAVECARD 



XIT 

; 



ELSE 



FREEFTOG 
THEN "D" 



ELSE 
%IF 



FREEFTOG 



Ai 

IF NEXTCARD»6 THEN GO 

CARDCOUNT*CARbCOUNT+l 

IF NEXTCARD » 1 THEN 
N % CARD ONLY 

if(not dc Input Or tsseditooand not 

THEN M0VEW(CB*CRD#H0LT0G,IF DCINPUT 

IF SSNMC4 3*-DCM0VEWCC6*CR0*H0LT0G» M FILE 

THEN " R" ELSE " D M 3 t '"' " THEN 
BEGIN XTA*SSNMt43 i 
M0VESEQ(_SSNM[4 3#LASTSEQ); M0VESEQ(LASTSEQ*CR0C9 3 ) 

if LisToG Then 

BEGIN IF FIRSTCALL THEN DATIME i 
DCM0VECPRINTBUFF»CRD,CADR+1).C36I10 3,0)J 
WR I T AROW ( 11 * PR I NT BUFF Yl ' UNPR I NTED*F AL SE" 1 
END ; 

FL0G(149)J MOVESEQ(LASTSEO*SSNM[43) ; 

END i 
GETC0LHCRD[03) THEN 



BEGIN 



~^\ 



f'-i Uld 



BEGIN 



END; 

ENDJ 



IF 

BUF 1= MkABS(CRD[Oi)> 

BUF ** SCANINC(BUF*ID*RESULT*1*0)> 

IF ID ..NEC INCLUDE THEN 

DOLOPTJ 

IF REAL(TAPET0G)«3 THEN READCTp) t 

RE ADC CR* i6# CBt * 3 HE 1 3 i 

IF NOT TAPETOG THEN GO To STRT; 

READ(TPMO#TB[*3)CE23J 

NEXTCARO * SEOCHK(TBC93# CBC93); 

GO TO STRT) 



IF LISTPTOG THEN 

BEGIN IF FIRSTCALL THEN DATIMEJ 

IF SEOTOG THEN NEWSEQ( CRDC93 » SEQBASE )l 
DCMQV£CPRlNTBUFF#CRD#(A0R+l)tC36Jl03»l)J 

writarow (12#printbuff)j unprinted i» false) 

end) " "'" 

READ(CR#lO,CBt*3)tE13; 



mmm 

02374065 T 
02374100 T 
02 3741 10 T 
02374150 T 
02374200 T 
02374100 T 
02374450 T 
02374470 T 

02374520 T 
02374560 T 
02374580 T 
02374600 T 

02374680 T 
-6*W5O0O T 
02375600 T 
02376000 
02377000 
02378000 
02379000 
02380000 
02380100 
02380125 
62380156 
02380175 
02380200 
02380210 
02380220 
02380230 
62380240 
02380250 
02380 300 
02380460 
02381000 
02382000 
62382200 
02382300 
02382400 
"02382506 
02383000 
02383010 



02384000 
02385000 
02386000 
62387066 
02388000 
02389000 
02389 iOO 
02389200 
02 38.9300 
02389406 
62389500 
02389600 
02389706 
02390000 



T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 

T 

T 
T 
T 
T 
T 
T 
T 

T 
T 
T 
T 

T 

T 
T 
T 
f 

T 



■mi 

0361 
0366 
0368 
0370 
0372 

oin 

0377 
0363 
0393 
0396 
0397 
XS398 
0399 

0402 
6446 
0407 
0407 
0408 
0409 
0410 
0410 
0412 

0419 
0425 
0428 
0430 
0433 
0434 
0436 
0439 
0442 
0442 
6444 
0444 
-9**6 
0448 

0448 
045l 
0452 
0453 
0453 
0458 
0464 
0464 
6476 
0472 
047? 
0477 
0477 
0477 
0480 
0462 
0485 
6488 
0488 



END; 
BEGf 



GO TO ENDP* 
IF NEXTCARD 



■ 5 THEN 



N 



MOvEWCTB^CRO^HOLTOG^T'') i 

READfTP* 10, TBC*3HE23j 
IF VOIOTTOG THEN IF SEQCHK (CRD C93# VOIDTSEQ ) 

VOIDTTOG » FALSE ELSE GO TO STRT; 
GO TO ENDPJ 



< 4 THEN 



END; 
BEG? 



ELSE 
%IF 



"R" ) 

FREEFTOG 



IF NEXTCARD $ 3 THEN 
N % CARD OVER TAPE 
IFCNOT DCINPUT OR TSSEOlTOG) AND NOT FREEFTOG 
THEN MOVEW(CB#CRD#HOLTOG#IF DCINPUT THEN *0 H 
ELSE IF SSNM[<j]«-0CM0VEWtCB#CRD#H0LT0G# w FILE 
THEN " R" ELSE " D") t " " THEN 

gf.4^N.l.XT^*ASW+|4.J..--4.-.-..-... zzzzzizzzzz:.„zzzzzzzz. 

MOVESEQ(SSNMU3#LASTSEQ>; MQVESEQCLASTSEQ, CRDC9 3 ) 

IF listqg then 

BEGIN IF FIRSTCALL THEN DATIME i 
DCMOVE(PRlNTBUFF*CRD,(ADR+l),C36U03»0)i 
WRITAR0W(11»PRINTBUFF>; UNPRINTED«-FALSE ; 
END ; 
FL0GCH9); MOVESEQ(LASTSEQ#SSNMC4]3 ; 
END i 
NEXTCARD «2 THEN READ( TP» 10, TBI * 3 ) t E2 J J 
GETCOLHCRD) THEN 



IF 
IF 



BEGIN 



BEGYN 



BUF «■ MkABS(CRDtb3); 

BUF l« SCANINC(BUF»IO»RESuLT#l»0)i 
IF ID NEQ INCLUDE THEN 



END; 
END; 



dolopt; 
read(cr>10»cb[*3)ce3jj 

NEXTCARD * SEQCHK (TBI 9 J> CBC9I')!' 

GO TO STRTJ 

E31 NEXTCAR0*5J GO TO STRTJ 



IF LISTPTOG THEN 

BEGIN "IF FIRSTCALL THEN DATIME J 

IF SEOTOG THEN NEWSEQCCRDt93#5EQBASE) * 
DCM0VE(pRlNTBUFF,CR0,CADR+l)a36U03*i)J 
WRIT ARdM (i2*PRINTBUFF); "UN PRINTED l» FALSE) 

end; 

READ(CR»lO*CBt*3)tE13; 

NEXTCARD *"SEQCWk (TBC93* CB'E9T)J 

GO TO ENOP* 



end; 

BEGT 



IF 



X TAPE 
NEXTCARD 



BEFORE CARD 
« 7 THEN 



N 



IFCNOT OCTnPuT OR TSSED1T0G)And NOT FREEFTOG 
THEN MOVEW(DB#CRD#HOLTOG# M L ,, ) ELSE IF XTA*DCMOVEW(DB#CRD# 
HOLTQG> w FILE *VIF FREEFTOG THEN » R" ELSE " 0") 

" * w ~"*~TH!n FL"QG~cT«9Tr " " " 

IF GETC0LKCRDC03) THEN 



02391000 


T 


0494 


02392000 


T 


0494 


02393000 


T 


0494 


02394000 


T 


0495 


02395000 


T 


0495 


02396000 


T 


0499 


02396100 


T 


0504 


02396200 


t" 


0507 


02397000 


T 


0510 


02398000 


T 


0510 


32399000 


T 


0510 


02400000 


T 


0511 


02401000 


T 


0511 


02401103 


T 


0513 


0240U25 


T 


0520 


02401150 


T 


0526 


.■.z:&a4-o"-H-*l" 


"t~ 


0S£9 


02401200 


T 


0531 


02401210 


T 


0534 


02401220 


T 


0535 


02401230 


T 


0537 


02401240 


T 


0540 


02401250 


T 


0543 


02401300 


T 


0543 


02401400 


T 


0545 


02402000 


f 


0545 


02403000 


T 


0552 


02404000 


T 


0553 


02464200 


f 


0554 


02404300 


T 


0556 


02404400 


T 


0559 


02404500 


T 


0560 


02405000 


T 


0560 


02406000 


T 


0561 


O2T0700O 


"T 


0566 


02408000 


T 


0568 


02408500 


T 


0574 


024139000" 


T 


0575 


02409100 


T 


0575 


02409200 


T 


0575 


0T409 3 Q~0 


f 


0576 


02409400 


T 


0578 


02409500 


T 


0580 


02409600 


f 


0583 


02409700 


T 


0587 


02410000 


T 


0587 


02411030 


T 


0592 


02412000 


T 


0594 


02413000 


T 


0595 


02414000 


..__ 


"0595 


02414100 


T 


0595 


02414150 


T 


0596 


02414X75 


T 


0596 


02414200 


T 


0598 


02414225 


T 


0607 


"" ostptsto 


T" 


0610 


02414260 


T 


0613 



BEGtN 



I 



C&Z 



■J 



ENDj 



END; 



buf »* mkabSccrdcod; 

buf »« scaninc(bufmd#result»1'0); 

IF ID * INCLUDE THEN GO TO LIBaDO; 

REA0(UFCINSERTINX*INSERTlNX+l],iO,DBt*])tE4B3; 
IF SEQCHK<INSERTSEQ,OBE93) ■ 4 THEN GO TO E4B; 
IF 6ETC0LHCRDC0]) THEN BEGIN OOLOPT; GO TO STRT; 
GO TO ENDP; 



end; 



MOVEW(TB*CRD,HOlTOG» w T M ) t 

READ(TPMO*TBC*3)tE23; 

IF VOIOTTOG THEN IF SEQCHK(CROt 9] , VOIOTSEQ ) < 4 THEN 

VOIOTTOGHFAISE ELSE BEGIN NeXTCARDI*SEQcHK( TBI 93/CBt9) ); 

go to strt; end; 
nextcard ♦ seqchk(tbc93# cbc9j); 



ENDP I 



IF NEXTCARD NEQ 7 THEN 

IF VOIDTOG THEN IF SEQCHK( CR0C9 3 » VOI DSEQ ) 

VOIDTOG I" FALSE ELSE GO To STRT; 
IF GETCOLlCCRO[03) THEN 



< 4 THEN 



BEGIN 



end; 



BUF »* MKABS(CRDC03 ); 

buf »* scaninccbuf,id#result,1,0>; 

if id * include then go to libadd else go to strt; 

seqerrors «* false; 
if nextcard ■ 7 then 

BEGIN MOVESfQ(LASTSECi,CRDt93); "80 fO~ENOP'Al" END; 

IF CHECKTOG ANO SEQERRCT-0 THEN SEQERRCT*! ; 
IF CHECKTOG THEN IF SEQCHKCLASTSEQt CRDC93 >»3 THEN 
BEGIN " 

seqerr(errorbuff#crdc9 3#lastseq) ; 
moveseq(lastseq#croc93) ; 

'" 'xf"seoto« then 

begin newseqccrd[93'SEqbase);seqbase+$eqbase+seqxncr end; 
m0veseqclinklist#crdc9 3>; 

MOVECCRDl9r/BUFL) i 

seqerrct*seqerrct+1 > 

seqerrors*true ; 

if not llstog then pkintcard ; 

END 
ELSE MOVESEQ(LASTSEO»CRDC93) ELSE MOVESEQCLASTSEQ*CRDC93 ) ; 



ENDPAJ 



IF SE0T06 THEN 

BEGIN 

NEWSEQ(CRD[9J#SEQBASE); 

seqbase «. SEoBASE ♦ seqIncr; 
end; 



02414270 
02414280 
02414290 
02414300 

02414310 
02414370 
02414380 

02a 14382 

02414390 

024J.4400 

02415060 

02416000 

02416100 

024T62M 

02416300 

02417000 
„_____.. 

02418100 
02419000 
02419050 
02419100 
02419150 
02419200 
02419250 
02419300 
"02419325 
02420000 

02420010 
02420011 

02420015 
02420020 

02420030" 

02420040 

02420050 

02420053 

02420057 

02420060 

2420070" 

02420080 

02420090 

02420100 

02420110 

02420120 



02420150 

02420200 

02420250 

02420300" 

02420350 

Q242Q_400 

02420450 

02420500 

02420550 

02421000 

02422000 

02423000 

02424000 

02425000 



T 

T 
T 

T 
T 
T 
T 

T 

T 
T 
t 
T 
T 
P 

C 
T 

T 

T 
T 
T 
T 
T 
T 
T 

T 
T 

1 
T 

T 
T 
T 
T 
T 
T 
T 
T 
f 
T 
T 
T 
T 
T 



Q614 
0615 
0617 
0620 
0621 
0621 
0631 
0635 
0642 
0642 



0645 
0651 
0654 
0659 
0660 

0663 
0663 
0668 
0670 
067| 
0672 
067« 
0677 
0679 
0679 

0680 
0681 

0684 
0687 
0690 
0691 
0693 
0694 
0695 

0690 



0701 
0702 

0704 

07Q6 
0706 

oTioT 

0710 
0710 
0710 
0710 
0740 
0710 
0710 

07 1.0. 

07H 

07U 

0712„ 

0713 

07i« 



™Pn 



IF NOWRI THEN GO 
IF NFWTPTOG THEN 
WR!TF(NEWTAPE*10* 
ENDPB» 

IF NOT SEQERRORS 

BfGIN 

MoVESEQCLINKLI 

MnVECCRDC<?]#BU 

END ; 

ncr «. initialncr; 

READaCARD * TRUE) 
XIT I 

SEGSwFIXED * TRUE 

remftxed*true ; 

if tsseditog then 
ltstog and fir 

&f&sw them xxx 

begin if lasta 
ltnesescnolin. 

C 38 » 36* 10] J 

end ; 

reapacard; 



IF 
If 



to endpb; 

if tsseoitog then begin tsseoltsccro* printbuff ) ; 

printbuff[*3) end else write(newtape#io#crd[*3) ; 

THEN 

ST#CRDC93) ; 

FL) i 



; 

WARNED*TRUE ; 
STCALL THEN DATIMEJ 

ENTER. S£ * ANO AO R TO U NXSE G ARRAY. ♦ 

DDRXAOR THEN BEGIN N0LIN*N0LIN*1 ; LASTAD0R*ADR END; 
!RfN0LlN.IC3*0 « D2BCLASTSEQ)C10»20:283 & (ADR+3) 



END 



1 cVl 



M' !i d-rJ J - 



vJs 



Ml 



a 



iv (.^Integer stream proce 
begtn 
local t; 

si «• p; 

8CIF sc < M 

SI «■ SI 

convert «■ s 
di «• char; 
t * tally; 
si «■ p; di 
di * size ; 
end convert; 









80 IS 



024 
024 
024 
024 
024 
024 
024 
024 
024 
024 
024 
024 
024 
024 
024 
024 
.024. 
024 
024 
024 
024 
024 
76 



25100 
26000 
26005 
26008 
26010 
26020 
26030 

26040 
27000 

28000 

29000 

30000 

31000 

31005 

31100 

32000 

12400. 

32200 

32300 

32400 

32500 

33000 



t LONG, 



07H 
0715 
0719 

0728 
0729 
0730 
0730 
0732 
0733 
0733 

0734 
0734 
0735 
0716 

0738 
0741 
0ZA4 
0745 
0748 
0754 
0755 
0755 
NEXT SE 



dure convert<nub#size,p#chafOj value p; 



is\j. 



*: t M4&ff^ 




0" THEN JUMP OUT; 

+ i; TALLY 4- TALLY + 1); 

l; 

Ds * 7 lit H o w ; ds * chr; 

* nub; ds * t oct; 
"si"* loc t; ds"* wds; 



02434000 


T 


0497 


02435000 


f" 


0497 


02436000 


T 


0498 


02437000 


T 


0498 


024 3B0O0 


T 


0498 


02439000 


T 


0499 


02440000 


T 


050i 


02441000 


T 


0501 


02442000 


T 


0503 


02443000 


T 


0503 


02444000 


T 


050a 


02445000 


T 


0505 



procedure scant 

BEGIN 

BOOLEAN STREAM PROCEDURE ADVANCECnCR* ACR# CHAR* NCRV* ACRV); 

VALUE NCRV# ACRV# CHAR; 
BEGIN LABEL LOOP; 

LABEL ""eTGi""AL'P"H» BkIV BK2", ""SPEC"? 

di * acrv; 

si *■ char; si «■ si+s; 

• jp "sg-jf m r~n -■■fHEN 

IF SC i "0" THEN BEGIN SI * NCRV; GO TO BK1 END ELSE 

BEGIN SI ♦ NCRV; GO TO BK2 END* 

si '*■ NCRv ; 

LOOPi 



024"45O0(T T 


0506 


02447000 


T 
T 


0506 


02448000 


05O6" 


srAirr or "STBwrNT 


***£«71**** g\ 


02449000 


T 


0000 


02450000 


T 


0000 


02451000 


T 


~U00O ~ - 


02452000 


T 


0000 


02453000 


T 


0000 


O2T5T0W 


f 


TJWff 


02455000 


T 


0001 


02456000 


T 


0003 


02457000 


T 


0004 


02458000 


T 


0004 



' • * « 



m 



bf<& 



Ll 




cIp^ 



^oBa. 



end 



if 5c 
if s c 

BEGIN 
DIG 
BKl 
IF 
GO 
END* 
IF Sc 
BEGIN 
ALP 
BK2 

If 

END* 
SPECt 
ACRV * 

©S * 6 

IF S C 

BEGIN 

DT 

Dl 

END FL 

BEGIN 

ACR 

DT 

end; 

ADVAnC 
ADVAN 



■ .". " THEN BEGIN 5I*SI + W GO TO LOOP END; 
i "O" THEN 

i d s * chr; 

» IF SC ■ " M THEN BEGIN SI * Sl + 1* GO TO BKl END*' 
SC Z "0" THEN GO TO DIG* 
TO .SPEC* 

■ ALPHA THEN 



HI DS <• CHR; 

I IF SC * w " THEN BEGIN SI * Sl + 1* GO TO BK2 END* 

SC » ALPHA THEN GO TO ALPH* 



di; 

Lit 

TALL 

* AC 
«• CH 
SE 

DI * 
V * 

♦ NC 



if n £ 

" THEN 

y ♦ i; si «• loc acrv* 

RJ DS * wds; 

ar; ds ♦ lit *; M ; 

char; ds * chr; 
si; si ♦ loc acrv; 
r; ds ♦ wds; 



e * tally; 
ce; 



02459QOO T 


0004 


02460000 T 


0006 


02461000 T 


0007 


02462000 T 


0007 


02463000 T 


0008 


02464000 T 


0010 


02465000 T 


0011 


02466000 T 


0011 


02467000 T 


0011 


02468000 I 


0012 


02469000 T 


0012 


02470000 T 


0013 


02471000 T 


0015 


02472000 T 


0016 


02473000 T 


0016 


02474000 T 


0014 


G247S0S0 T 


0017 


02476000 T 


0018 


02477000 T 


0018 


02478000 T 


0019 


02479000 T 


0020 


02480000 T 


0021 


02481000 T 


0021 


02482000 T 


0021 


02483000 T 


0022 


02484000 T 


0022 


02485000 T 


0022 


02486000 T 


0023 












boolean procedure continue; 

BEGIN 

label loop; 

'boolean stream procedure continccd); 

begin st*c0* tf sc* w c m then if sc* m $ m then begin si*si+5; if sc/" * 
then if sc**o» then begin tally*u continually end end end of contin 
boolean stream procedure comnt(cd,t); value t * 



START 



CO™ 



begin label l ; 

si *■ cd; if sc 

else jump out to l)> 
.End comnt; 



M C" THEN BEGIN T<SI*SI+1J IF SC* M - M THEN TALLY*1 

TALLY*!* L« end; comnt*tally * 



02487000 
02487200 
02487400 
OF SEGMENT 
02487600 
02488000 
02489000 
02489200 



T 0024 

T 0024 

T 0024 

********** 

T 0000 

T OOOO 

T 0002 

T 0005 



02489400 T 0006 

02489600 T 0006 

02490000 T 0009 

02490200 T OOU 






id |/J (K 



j^jX vf**-^ -- - t 




BOOLEAN STREAM PROCEDURE OCCOnTIN(CD)* 
BEGIN 

SI «. CO* IF SC * " 

DCCONTIN ♦ TALLY* 
END DCCONTIN* 



THEN TALLY * ij 



0"249ff400 
02490500 
02490600 
02491000 
02491200 



O0 j2 

0012 
0013 
0014 
0014 



m 



LOOP! IF NOTCCONTINUE * 

IF(DClNPUT AND NOT TSSEOITOG)OR FREEFTOG THEN 
IF NEXTCARO < 4 THEN DCCONTIN(CB) 

FUSE IF NEXTCARO '"■ 7 THEN DCCONTInCDB )"ELSE CONTIN(Tb) 
ELSE IF NEXTCARO » 7 THEN CONTIN(DB) 
ELSE IF NEXTCARO < 4 THEN CONTlN(CB) ELSE 
CONTINCTBTJ THEN 



IF(IF NEXTCARO < 4 THEN 

COMNT(CB*(OCINPUT 

ELSE IF NEXTCARO * 7 

COMNT(DB#(DClNPUT 



ANO NOT 
THEN 
AND NOT 



TSSEDITOG) OR 



TSSEDITOG) 
6) THEN 



OR 



FREEFTOG) 
FREEFTOG) 



END 



ELSE COMNT(TB#0) AND NEXTCARO t 

... - begin .' •'■ - - I.: -'■■ '..:'.'...:: 

IF READACARD THEN IF LISTOG THEN PRINTCARDJ 
GO TO loop; 

end; 
continue; 





02491400 


T 


0015 




02491600 


T 


0016 




02491650 


T 


0019 




02491700 


T" 


DO 21 




02491800 


T 


0026 




02492000 


T 


0030 




02492100 


- T 


0034 




02492400 


T 


0036 




02492450 


T 


0038 




0Z4V25 orr 


T 


0041 




02492550 


T 


0044 




02492600 


T 


0048 




Aa&ajaaa; 


■'■T- 


03&£ 




02493200 


T 


0053 




02493400 


T 


0055 




0249 3600 


T 


0056 




02494000 


T 


0056 


2 


IS 59 LONC 


\» 


NEXT 



IjrrJ 

a/Z^' -r 




PROCEDURE SCANXCE0F1* E0F2* 
VALUF E0F1# E0F2, 
INTEGER EOfl' E0F2, 

BEGIN LABEL LOOP* LOOPO ; 



E0S1» 
E0S1* 



E0S2, 
E0S2, 
E0S2V 



0K1> 0K2); 
OKI* 0K2; 
OKj# OK 2 J 



LOOP'o't 

EXACCUMC13 * 

ACR * ACRi; 

LOOPl 

If ADMN^E_(NCR. 

IF CONTINUE 



blanks; 



ACR, CHR1# NCR* ACR) THEN 





P.R INTCARD 



GO 




LOOPo end ; 



END 



ACR.t33ll53SEXACCUMST0P THEN 
BEGIN XTA*BLANKS; FL0G(l75); 

GO loop ; 

END 
ELSE SCN » IF EXACCU M C13 b^ BLANKS THEJLEjJFi ELSE E0F2 
ELSE SCN «• lF*XXACCUMtlT « BLANKS ™eV~E0S1E£SE E0S2 

else scn *■ if exaccumtu • blanks t^en oki else 0k2; 
scakjx; 



02495000 
02496000 
01497W0 
02498000 
START OF SEGMENT 
02498100 
02499000 
02500000 
02501000 
02502000 
02503000 
025MOO0" 
02505000 
02506000 
02506010 
02506020 
02506030 
02506040 
02506050 
02507000 

02508000 
02509000 

02510000 

8 3 IS 24 LONG 



T 0024 
T 0024 
f TJ024 
T 0024 

********** 



83 



0000 
0000 
0001 
0002 
0002 
0004 




0005 
0006 
0006 
0008 
0009 
O0T2 
0012 
0012 

0015 
0019 
0023 

NEXT 



Sfg 




OEFINE CHAR » ACCUM[0]#; 
DEFINE f»SY'MBO'ijn 
INTEGER N; 



02511000 T 0024 
D251T0O0 T 0024 
02513000 T 0024 



»* '* 



« # 



* . * t 



BOOLEAN STREAM PROCEDURE CHECKEXP(NCR, NCRV* A.) I VALUE NCRV; 
BEGIN 

SI «■ ncrv; 

IF Sc * "*" THEN 

BEGIN DI * a; OI ♦ 01+2; OS * 2 LIT "*"; SI ♦ SI + i; NCRV * SI) 

tally * 1; checkexp «• tally; 

st * loc ncrv; di * ncr; ds «• wos end; 

END CHECKEXP; 



0.25140QQ. 


T 


0024 


02515000 


T 


0024 


02516000 


T 


0024 


02517000 


T 


0024 


02518000 


T 


0024 


02519000 


T 


0026 


02520000 


T 


0027 


02521000 


T 


0028 



\ 






procedure checkreserveo; 

begin label reswd, xit, foundi, founds, done; 

boolean stream procedure completecheckc a#b, n ) j value n j 

8C6.T-N 4ASCL-4 * '■ ■ ■ 

SI*a; Sl*Sl-2j DI*BJ NCIF SC*DC THEN JUMP OUT TO L); TALLY*U 

L» cOmpletecheck*tally ; 
END of completecHeck ; 



02522000 
0T52T0O0 



0029 
0029 



START OF SEGMENT ********** 



02523100 
02£232^ 
02523300 
02523400 
02523500 



0000 
0034 
0000 
0003 
0004 



STREAM PROCEDURE XFER(FR0M, Tl» T2, N, M); VALUE FROM, N, Mj 
BEGIN ST * FROM; 01 ♦ Tl) DI ♦ Dl+2; 

os * m chr; 

si <■ from; si «• si+n; 

01 ■«- T2; 01 * 01+2; 

DS ♦ 6 ch«; 

END XFER; 



stream procebure xferacfrqm, nextl, next2); 

valuf from; 
begin St *■ from; si «■ si+6; 

di «■ nexth di * 01+2; 

5(if sc > "0" then ds *■ chr else jump out); 

s i * s 1 + 2 ; 

di * next2; di * 01+2; 

6cif sc s alpha then os «■ chr else jump out); 
end xfera; 



BOOLEAN STREAM PROCEDURE CMECKFuN(FR0M, TOO, N); VALUE FROM, NJ 

begin si ♦ from; SI * SI + n; 

IF Sc » M 0" THEN 

BEGIN SI...*.SI*LA._ 

IF SC » "N" THEM 

BfGIN SI + SI+1J TALLY * \i 

di «• too; di ♦ 01+2; 
os * 6 chr; 
end; 



02524000 


T 


0005 


02525000 


T 


0005 


02526000 


T 


0006 


02527000 


T 


0007 


02528000 


T 


0008 


02529000 


T 


0008 


02530000 


T 


0008 



02531000 


T 


0009 


02532000 


T 


0009 


02531000 


7" 


0009 


02534000 


T 


0009 


02535000 


T 


0010 


02536000 


T 


0012 


02537000 


T 


0012 


02538000 


T 


0012 


02539006 


T 


0015 



02540000 


T 


0015 


02541000 


T 


0015 


02542000 


T 


0016 


02543000 


T 


0017 


02544000 


T 


0018 


02545000 


T 


0018 


02546000 


T 


0019 


02547000 


T 


0020 


02548000 


T 


0020 






end; 

checkfun «• tally; 

eno checkfun; 



02549000 T 
02550000 T 

02551000 T 



BOOLEAN STREAM 

BEGIN Si ♦ pj 
IF Sc * " " 

M0RETHAN6 «■ 
ENO M0RFTHAN6; 



PROCEDURE M0RETHAN6CP); 



then tally 
tally; 



i; 



id; 



INTEGXR .1.1.: ALPHA 

INTEGER STOR ; 

IF ACCUMC13 » " 
BEGIN XTA * CHAR; 

if char = «» 

IF CHAR * "«■ 

IF 

IF 



end; 

THEN 



GO to xit; 



" then 
fl0g(16); go to xit 

OR CHAR ■ "# « 
THEN GO TO XIT; 

char t *c "and char t *x " then go to reswd; 

MnRETHAN6(ACCUMt23) THEN GO TO RESWD* 



c 




17, DATA, 



LEFT. 

CHAIN, PRINT OR 



" COMMENT AT THIS POINT WE HAVE <ID> 

THIS MUST BE ONE OF THE FOLLOWING* 

ASSIGNEMNT STATEMENT WITH SUBSCRIPTED VARIABLE AT THE 

STATfMENT FUNCTION DECLARATION, 

call* rf al> en try * bi~' T0"r"ffC7fB"; wr \ t r, f *'drh a t , 

__PJJNCHJ 

IF I * SEARCHCT) > THEN 

irGEf(I)."CL"ASS i aRRAYID fflfN GO '"TO XlTJ 
ID *■ It ID. C 36 S 123 «■ " M ; 
FOR 1*0 THRU RSP 00 IF RESERVEDWORDSLP C I 3*ID THEN IF (IF STOR 
♦RESLENGf HLPC T3-*<i THEN TRUE ELSE cOMPLETECHECKt ACCUMlZTi 

resfrvedwordslpci+rspi3,stor)) then go foundi ; 
go Tn xit; 



FOUNnl* 

NEXT * LPGL0BALCI3; 

T. «-... ».. "i 

XFERCACRO* T# NEXTACC* 

GO TO done; 

.RE.swb.1 _ 

COMMfNT AT THIS POINT 



I*RESLENGtHLPil 3, IF ; "'T> 6 THEN 6 '"till I ">'jf 



WE 



identify the statement 



KNOW THE 

type; 



< id > must be a spec i a l word 



TO 

ID * T; ID, 1361123 + " 

IF f « "ASSIGN" THEN 

BEGIN 

nfxtscn «. s_cn; scn _♦ 

"NfXT ACC""*"NEXf ACC2 ♦ 

xferafacro, nextacc, 
next «■ 1; 
go to xit; 
end; 
for 1*1 thru rsh do if 

pYsTengTh [ I "j I - 4< 1 THEN" TRUE 
[I+RSH11,IF ST0R>8 THEN 8 ELSE 



"; 



i«; 

M »» j 

NEXTACC2); 



reservedw0r0sti3«id then if (if stor* 

completec^^ 
stor)) then go f0und2 ; 



0020 

002 

0020 



02552000 T 0021 

02553000 T 002i 

02554000 T 0022 

02555000 T 0023 

02556000 T 0023 



: ■JtZ532Q£&. I.... 


QQ24 


02557100 T 


0024 


02558000 T 


0024 


02559000 T 


0026 


02560000 T 


0030 


02560100 T 


0033 


02561000 T 


0034 


02562000 T 


0037 


02563000 T 


0039 


O2564U0TT T 


0039 


02565000 T 


0039 


02566000 T 


0039 


\ 0276TUOT T 


TJ039 


02567100 T 


0039 


02568000 T 


0039 


02569W0 T 


00~4T 


02570000 T 


0044 


02571000 T 


0046 


02571 I OOf 


0055 


02572000 T 


0060 


02573000 T 


0064 


02574000 T 


0065 


02575000 T 


0065 


02576000 I 


0066 


02577000 T 


0066 


02578000 T 


0071 


02579000 T 


0073 


02580000 T 


0073 


02581000 T 


0073 


02582000 T 


0073 


02583006 f 


6075 


02584000 T 


0076 


02585000 T 


0076 


02586000 T 


0078 


02587000 T 


0079 


02588000 T 


0080 


02589000 T 


OUIl 


02590000 T 


0085 


02591000 T 


0085 


5 "02T91TTJD T"" 


OOBT 


02592000 T 


0092 




« ♦ 



• % 



XTA «, TJ FLDGC16); GO TO XITJ 

F0UNn2« 

NEXT * 1 + 1; 

T * M n i 

XFERfACRO* t» NEXTaCC* I*REStENGTH tI3» IF I> 6 THEN 6 ELSE !)J 

DONE: NEXTSCN ♦• scn; 

SCM * 6J 

IF NFXTACC * "FUNCTI" then 

IF CHFCKFUN(ACRO# nextacc* 1+6) then scn «• 13; 
XITS 

eostog*false; 
end checkreserved; 



02593500 
02594000 
02595000 

02596000 
02597000 

02598000 
02599000 
0260000X5 
02601000 
02602000 
02603000 
02604000 



84 IS 120 LONG* 




BOOLEAN PROCEDURE CHECKOCTAU 
BEGIN n 

INTEGER 



s# t; label xit; 

PROCEDURE COUNTCACRV»T); 



START 



VALUE ACRV*T > 



INTEGER STREAM 
BEGIN 

local a*b; si*loc t; si*si+7 ; 

if sc*"1 m then begin si*acrv;if sc«"o w then si*si+1 end else si*acrv; 

IF SfiX" «♦ THEN 

bfgin a*si ; 

17(if sc>"7" then begin tallym7; jump out end else if sc< w o" then 

bfgin IF scx h fl thin fALLV*[7> jump out end; s!*SI+ir 

tally*tally+1) ; 

sutally; si*loc b; si*si*7 ; 

IF sc«" + ,r THEN "BEGIN sTi'Aj ""t'F " SC>"3 H ' THEN TAClY'*T7 Eld"/ " 

EmD i 
C0UNT*TALLY ; 
END OF COUNT * 



acrv# s> t; 



alpha stream procedure convucrv* s, t); value 

begin si ♦ acrv; if sc i" « "o« then si ♦""si'+ij 

DI «■ LOC CONV; SKIP S DBJ 

T(SKTP 3 SB; 3(IF SB THEN OS * SET ELSE DS * RESET; SKIP 1 SB))* 
END CONv; 



* THEN 



IF T«.C0UNT(ACR0#1) 

BEG Hi S * i; 

IF T ♦• CHAR * "♦ 
IF T ■ "*• " THEN S ♦• 
S c A N X C 4 , 4 » 3 * 37io, \ y j 
IF SCN * 10 THEN GO TO XIT; 
IF T*C0UNTCACR1,2) • OR T 
Fn'EXT '"'«■ CONVTACTrn (16-^1x3, 



AND T * »& 
-1 ELSE GO 



TO 



' THEN 

xit; 



IF S < THEN 



(16- 
FNEXT * < 



> 16 

'T)T 



THEN GO TO XIT ; 



fnext; 



02605000 
02606000 
02607000 
OF SEGMENT 
02608000 
02609000 
02610000 
02611000 
02612000 
02613000 
02614000 
02 6140 W 
02614015 
02614020 
02614030 
02614040 
02614050 
02614060 



0261J5000 
02616000 
02617000 
02618000 



02619000 



T 0029 
T 0029 

T 0029 
********** 



85 



02620000 T 
026201 00 f 
02620200 
02621000 



02621100 
02622000 
02622100 
02627200 f 
02623000 T 



0000 
0000 
0000 
0000 
0003 
0003 
0004 



0009 
0010 

oo To 

0012 
0012 
0013 



0014 
0014 
0015 
0015 
0019 



0020 
Q024 

0025 
0027 

oofo 

0032 
0033 
OOTeT 
0041 






end else if t < 17 then fnext«-c0nv ( acro# ( 16-t )x3> t ) else go to xit i 
checkoctal * true! 
next *■ numi 
numtype ♦ realtype; 

XIT« 
END CHErKOCTALl 



02623100 
02624000 
02625000 

02626000 
02627000 
02628000 



0044 
0052 
0053 
0054 
0054 
0055 



85 IS 58 LONG, NEXT SE 




procedure Hollerith; 

BEGIN 

REAL T, C0L1, T2# ENDP; 

LABEL XIT; 

iNTEfiER STREAM PRQCEOURE STRCNT<-S-*0»&Z >l VALUE S*S2i 
BEGTN 

si «• s; di ♦ d;ds * 8 lit »oo w ; di * d; 

01 * DI DI * DI ♦ 21 DS «-SZ CHRl STRCNT «• Sll 
END STRCNTI 



02629000 


T 


0029 


02630000 


T 


0029 


O2~6TI007Jr 


t 


0029 


START OF SEGMENT 


********** 


02632000 


T 


0000 


02633000 


T 


V Vwv 


02634000 


T 


0000 


02635000 


T 


0000 


02636000 


T 


0002 


02637000 


T 


0003 



INTEGER STREAM 
VALUE S# 
BEGIN 

di «• o; 

SI * SI DI 

END RSTOREJ 



PROCEDURE 

skp, sz; 



RST0RE(S»0»SKP#SZ)l 



♦DI + SKPI OS * SZ CHRl RSTORE * Sll 



02638000 
02639000 
02640000 
02641000 
02642000 
02643000 



0004 
0004 
0004 
0005 
0005 
0006 




Fl «• FNEXTI 
NUMTYPE ♦ STRINGTYPEI 

T ♦ o & NCRC30I33»15] & NCR C 45l 30« 3] I 
C0L1 * & INITIALNCRC30I33I 15]; 
ENDP «■ C0L1 + 721 
STRINGSIZE * 01 
WHILF Fl >0 DO 
BEGIw 
T2 * 
If 



IF 



IF Fl > 6 THEN 6 ELSE Fll 
STRINGSIZE > MAXSTRING THEN 
BEGIN FLAG(120)I STRINGSIZE 
T + T2> ENDP THEN IF DC INPUT OR 



* END! 
FREEFTOG 



THEN 
XIT END 



BEGIN XTA«-BLANKS| FL0Gd5O)l GO TO 
ELSE BEGIN 

IF TSSEDlfOG THEN IF NOT DC INPUT THEN TSSEDC BLANKS* i) i 
NCR * STRCNTCNCR, STRINGARRAYC STRINGSIZE ] » ENDP-T); 
IF NOT CONTINUE THEN 

BEGIN FLQG<43)I GO TO XlT END! 
IF READACARD THEN J 

IF LISTOG THEN PRINTCARD; 

NCR * RST0RE(NCR,STRInGARRAYCSTRInGSIZE],ENDP-T+2*T2-(ENDP-T)); 



02644000 T 


0007 


02645000 T 


0008 \ 


02646000 T 


0009 \ 


02647000 T 


0012 \ 


02648000 T 


0014 \ 


02649000 t" 


0015 


02650000 T 


0016 


02651000 T 


0017 


02652000 T 


0017 


02653000 T 


0020 


02654000 T 


0020 


0265SO0S f 


0022 


02655500 T 


0026 


02656000 T 


0028 


02656100 T 


0029 


02657000 T 


0033 


02658000 T 


0036 ' 


02659000 T 


0036 


02660000 T 


0036 


02661000 T 


0038 


02662000 f 


0039 


02663000 T 


0041 



'» 



♦ • « » 



• 



STRINQSIZE ♦ STRINGSIZE+H 

F1 ♦ Fl - T2I 

T * COUl + 6 + T2 - CENDP - T)l 
END FUSE 
BEGIN 

NCR ♦ STrCNTCNCr* STRINGARRAY[STRINGSIZE]# T2)J 

stringsize * STrinGSIZE +11 

T * T +T2; 

Fl «■ Fl - T2i 

end; 
end; 
numtype «• stringtype; 

SCN 4. II 
X IT I 

END HOLLERITH; 



02664000 
02665000 
02666000 
02667000 
62668000 
02669000 
02670000 
02671000 
02672000 
02673000 

02674000 
02675000 

02676000 
02677 (TOO 
02678000 



86 IS 63 LONG* 




procedure quotestring; 

BEGIN 

reau c; 

uabei. xit; 

alpha stream procedure stringword ( s#d* skp# sz/c ) ; 

valuf s*skp*sz; 

BEGIN 

LABEL QT, XlT; 

oi «• oi si * s; 

DI «■ Dl + SKP; DI ♦ DI + 2; 

tally «• skp; 
s?c if sc « """ 
sc « "»" 

sc ■ "* w 

SC ■ "]" 

* chr; Tally «• tally+u; 
go to xiti 

QT» TALLY *■ TALLY + 7J SI * Sl + i; 
XTT I STRINGWORD * Sll S ♦ TALLY; 

St •• loc s; di ♦ c; os * wds; 
end stringword; 



IF 
IF 
IF 
DS 



THEN 
THEN 
THEN 
THEN 



JUMP 
JUMP 

JUMP 
JUMP 



OUT 

out 

OUT 

Out 



TO 
TO 
TO 
TO 



qt; 
qt; 
qt; 
xit; 



02679000 
02680000 
02681000 
START OF SEGMENT 
02682000 
02683006 
02684000 
02685000 
02686660 
02687000 
02688000 
62689666 
02690000 
02691000 
02692066 
02693000 
02694000 
62695006 
02696000 
02697000 
02698000 
02699000 



T 0029 
T 0029 
T 0029 

********** 



0000 
0666 

0000 
0000 
0000 

oooo 
oooo 

000 1 
0002 
0004 
6005 
0006 
0007 
0007 
0008 
0000 
0009 
0010 






stringsize «. o; 

DO 

BEGIN 
IF 

Br 

st 
nc 
if 



FL 

if 



STRINGSIZE > MAXSTRING THEN 
GIN FLAGC120); STRINGSIZE * END; 
RINGARRAYCSTRINGSIZE) * BLANKS* 
R * STRINGWORD(NCR* STRINGARRAYt STRINGSIZE] * 0# 6, OI 

C<6 THEN IF DCINPUT OR FREEFTOG 

THEN BEGIN XTA»BLANKS; FU0G(150)I GO TO XIT END 
SE BEGIN 

TSSEDITOG THEN IF NOT DCINPUT THEN TSSEDCBUANKS* 1 ) I 



02700000 


T 


0011 


02701000 


T 


0012 


02702000 


T 


00J3 


02703000 


T 


0013 


02704000 


T 


0013 


02705000 


T 


0015 


02706000 


T 


0017 


02707000 


T 


0020 


02707500 


T 


0022 


02708000 


T 


0025 


02708100 


T 


0026 



if not continue then 

% 

begin fl0gc121)j go to xit end; 
if readacarO then; 

IF 'l'l3 TOG THEN PRINTCAROJ 

ncr * stringwordcncr* str ingarray t stringsize 3#c»6-c»c); 
end; 
stringsize «■ stringsize ♦ u 

ENO UNTIL C i 7; 

IF C 9 7 TH|N STRINGSIZE * STRINGSIZE"! ; 

FNEXT * STRINGSIZEJ 

NEXT ♦ num; 

symbol «• name * str ingarray[03 ; 

numtype «. strTngtype; 

SCN *> l; 
XITl 

xno flHQ.TXST.Ri.Aui 1 _;; ;. ;::„: :,,;..:.: :.::.;:..:...:...:.:.. 



02709000 


T 


0029 


02 mow 


T 


0030 


02711000 


T 


0030 


02712000 


T 


0032 


02713000 


"T 


0033 


02714000 


T 


0035 


02713000 


T 


0038 


02716000 


T 


0038 


02717000 


T 


0039 


02718000 


T 


0041 


027i9"QO~O 


T 


U043 


02720000 


T 


0044 


02721000 


T 


0045 


02722000 


T 


0046 


02723000 


T 


0047 


02724000 


T 


0048 


DaTascffO-- 


-T-- 


004 g 



^e/A^ 



87 IS 51 LONG, NEXT SEG \8l 




PROCEDURE CHECKPERIOO; 
BEGIN 

LABEL FRACTION, XlT* EXPONENT* EXPONENTSIGN; 



LABEL 
ALPHA 

intf 

BOOLE 
IF T 

SCAN if 
IF T 

BEG 
IF T 

if t; 

if t: 

BEGIM 

If 

EX 

I 

end; 

IF EX 

FOR T 

if 

BF 

GO Tp 
FRACT 

IF NO 

FPLPl 
Fl * 
XTA 

C2 * 
IF (F 
THEN 
ELSf 



numfin 

S, T» 

O'ER" C 21 ' 

AN CON; 

* C.HAP 
(4* 9* 
♦• EXACC 

IN .if N 

SB Wp 

E 12163 
1 18S63 



I* 



FPLP* 

ts; 



chkexp; 



10* 

m « 



3, 8* 

UM[13 ■ 
UMTYPE $ 

" OR t 

S 9 THEN 
S 9 THEN 



" THEN GO TO CHKEXP; 

in; 

" THEN 

doubtype then numtype 
■ m "then go" to 
go to fraction; 



♦ realtype; go 
exponent's! gn' 



TO XI 



S * T. [12*63 * "E H AND S 
BEGIN XTA * T; FL0GC63); 
ACCUMC 13. C12*63 ♦ 6; 

* 1; go to exponent; 



* "0" 
GO TO 



THEN 

xit end; 



accumTo" 3 """* " "*' w "Then" GO To xIT; 

* STEP 1 UNTIL 10 DO 
T « PERIODWOROm THEN 

gin exaccum[25 «• it son r* 121 50 to xit ewdt 
xit; 

IONt NEXT ♦ NUM; 

MTYPE * DOUBTTPE THEN NWTYPE * """RXAliTYPET "XTA" * AcRTX 

O; 

* CONVERT(Fi>Ct»XTA #TS); 

C2 ♦ ci; 

2 * FNEXTxTEN[Cl3+Fl) S MAX 

FNElT "V'T2 — 

BEGIN 



02726000 T 0029 


02727000 T 0029 


02728000 T 0029 


Start of segment ********** 8s 


02729000 T 0000 


02730000 T 0000 


027300~56 T 0600 , 


02730100 T 0000 


02731000 T 0000 


02732000 f 0002 


02733000 T 0004 


" END; 02733500 T 0005 


02734000 T 0011 


02735000 T 0013 


02736000 T 0015 


027 37000 ~f 0016" 


02738000 T 0017 


02739000 T 0019 


02f 40000 T 0025 I 


02741000 T 0027 


02742000 T 0028 / 


02TOOOO~T OOTJF ~~W 


02744000 T 0030 / 


02745000 T 0032 / 


027460X30 T 0013 "'/""" 


02747000 T 0038 / 


02748000 T 0038 / 


" " "0 27I9WC T 003 9 / 


02750000 T 0042 , 


02751000 T 0043 




02752000 T 0043 




02753000 T 0046 




02754000 T 0047 


"'" "02755500 T 0049 


02756000 T 0050 






« « • 



« . * % 




numtype * doubtype; 

CON «. TRUE; 
DOUBLE (FNEXT,DBUOW, TEN CCl],TEN[69+cn*x# 
Fl»0# + ,«.#FNEXT#DBLOW)J 

end; 
if ts i 9 then go to fplp; 
fi «• o; 

IF T «• EXACCUMC03 t M E " AND T t "D " THEN 

begin if scn * 8 then scn ♦ 3 else scn * 10j 

go to numfinij 
end; 

CHKEyPt FNEXT «• FNEXT x i.o; 
Fl *flJ 

i «• 1; 

SCANx<4» 4> 3» 3# 20* I0)i 
IF SfiN b 20 THEN 

EXPiwEitiiifiNA. - - - - - 

BEGIN IF S * EXACCUMCOJ ^ "+ M AND S / M & H THEN 

IF S ■ "- " THfN I * -1 ELSE 

BEGIN XTA * S; FL0G<63)* SCN «• 10; GO TO XIT END; 
ScANX(4» 4* 3* 3* 10» 10); 

end; 

IF (S ♦ EXACCUMtl3).C12I63 > 9 THEN 

BEGIN XTA «■ IF S * BLANKS THEN S ELSE T; FL0G(63); GO TO XIT END; 
EXPONENT! 

IF NUMTYPEV DOUBTYPE THEN NUMTYPE *"REAlTYpI; " 

IF T.C1?«6] « "D" THEN NUMTYPE * DOUBTYPE; 

IF ScN ■ 8 THEN SCN «- 3 ELSE IF SCN « 11 THEN SCN «• 10J 

x T a * Ac ri ; " " "~ * " " " ~ 

XTA * C0NVERT(F1#C1#XTA »TS>; 
IF I < THEN Fl * *Fi; 

' NUMF TN fl "" " " " " "■' " 

CI *■ Fl - C2; 

IF I * (ABS(C1+(FNEXT.[3I6]&FNEXT[U2I13))) > 63 ORCCABS(Cl) « I OR 
FNEXT""* 5) AND ABS(Fl) S 69) 
THEN BEGIN XTA ♦ T; FL0G(87); GO TO XIH END; 
IF NljMTYPE / DOUBTYPE THEN 

BEGIN ' 

IF C 12? THEN FnEXT * FnEXT x TENCC1] 

ELSE FNEXT * FNEXT / TENfClU 
END FLSE 
BEGIN 

IF CI * 

THEN DOUBLE rFNE'XtYDBLOW'fE^^ 

ELSE D0UBLE(FNEXT,DBL0W#TENC-C1]»TENC69-C1]#/»*»FNEXT#DBL0W); 
IF CON THEN IF DBLOW.C9I333 * MAX,C9l33_3 THEN 
TF FNEXT, [3»6l L^ 14 

THEN IF B00LEAN(FNEXT,C2tn> THEN 

begin dbl0w_i« 0; fnext «» fnext + 1&fnextc2*2i 7 ]; end; 

end; 

XIT J 

end chfckperiod; 



27570 00 
02757100 

02758000 

02759000 

02760000 

02761000 

02762000 

02763000" 

02764000 

02765000 

02T66060 

02767000 

02768000 

02769000 

02770000 
.0277.1000 



02773000 
02774000 
0277560b 
02776000 
02777000 
02778000 
02778100 
02779000 
2779500 
02780000 
02781000 



02786000 
02787000 
02T8T5W 
02788000 
02789000 

0279000° 
02791000 

02792000 

02793000 
02794000 
02795000 



02796000 
02797000 
02797100 
02797 150 
02797200 
02 7 9 73 00 
02798000 
02799000 
02800000 



.02-77-2*0* T 



~WF8T0WT 
02783000 T 
02784000 T 

UT7S5000 T 



T 
T 

"f 

T 

T 

T 
T 
T 
T 
T 
T 
T 
T 

T 
t 
T 
T 
T 
T 
T 
88 IS 153 LONG, 



SSI 2 
0052 

0053 
0056 

0057 
0057 
0059 
0059 
0062 

0068 



0069 
007j 
0072 
0072 



-007-5-. 
0076 
0078 
008 1 
0088 
0090 
0090 
0092 
0097 
0098 
0100 
0102 
OlO-f- 

0107 
0110 
0TT2 
0113 
0114 
0118 
0120 
0123 
0124 
0125 
0126 
0130 
0130 
_°! 3 _0 
0130 
0135 

0142 
0143 
0145 



Jjf&i - 



0148 
0148 
0149 

NEXT 3 EG 




LABEL LOOPO, NUMBER ; 



02801000 T 0029 




Cfi&£ ft : 



.^LABEl U,XJT; 

LABEL L1*L2#L3*L4*L5*L6#L7>L8#L9»L10*L11#L12*L13#L14#L15#L16#L17# 

Ll8*Ll9»L20*L21#BK ; 
SWITCH CASEL«-L1,L2#L3,14»L5,L6*L7,18»L9,L10>L11»L12#L13#L14#L15» 

L16»L17#L18*L19»L20»L21 ; 
LABEL CaSEI, CASE2* CASE3, CASES' LOOP* CASESTMT; 
PREC*NEyT*ENEXT*REAL(SCANENTER*FAUSE) I 
CASESTMT* 
CASE SCN OF 

GO TO IF LABELR THEN CASE5 ELSE CaSEU 

CASE1I 

BEGIN 

LOOPOl 

acr «. acro; 
AccuMtn * blanks; 









IF ADVANCECNCR* ACRj, CHRO# NCR* ACR) THEN ^yM '/ ^/i«iW>, ^iftA^^i'/tAja 
IF CONTINUE THEN ' <* 

X 

IF READACARD THEN 
BEGIN 

IF LISTOG THEN PRWCARD ; 
IF ACR.[33»15]>ACCUMST0P THEN 

BEGIN XTA*BLANKS; FL0G(173)J GO LOOPO END ; 

GO loop ; 

END 
ELSE IF T ♦ ACCUME1J ■ " « THEN GO TO CASES ELSE SCN * 4 

else if t ♦ AccuMcn « •♦ * then 
go to case3 else scn «• 3 
else if t ♦ accumcu • " " then go to case2 else scn «■ 2; 

end; 

CASE2« 

BEGIN T * CHAR; SCN * 1 END; 

CASES* 

BEGIN T ♦ "I "I NEXT «• SEMXJ SCN * o; 

IF EOSTOG THEN IF LOGIFTOG THEN BEGIN LOGIFTOG * FALSE; XTA * T; 

FLAG(idi); end; 
gh to xit; 
end; 

BEGIN t * M ; "; NEXT » semi* SCN ♦ 5> GO TO XIT END"; 

C A Sp ^ I 

BEGIN T * "<EOF> n f NEXT * EOF; EOSTOG ♦ FALSE; GO TO XIT END; 
BEGIN T ♦ Ac"CUM"fi]''*"''NE'XTACCT SCN " ♦ nEXTSCN/ '" "" 

!ft=" " then go to casestmt; 
end; 
begin eostog * true; 

if labelr then go to case5 else go to caseu 
end; 

BEGIN f ♦ EXACCUMtn; SCN ♦ 3 ENO; 

BEGIN T ♦ EXACCUMtn; SCN ♦ 4 ENO; 

CA^e >o; BEGIN T ♦ CHAR * EXAGCUMCOJ; SCN «• 1 EnD; 

c/fse //begin t ♦ ExAccuMrn; scn *ioend; 

CAkt? iz: BEGIN T ♦ EXACCUMUi; SCN ♦ l; 
IF N * EXACCUMC23 S t THEN 

BEGIN NEXT '«■ NUHT FNEXT * "NJ GO TO XIT ENDJ " " " "— 

NEXT ♦ o; 



cA^e f .' 



02802000 
02802100 
02802200 
02802300 
02602400 
02803000 
02804000 
02105000 
02806000 
02807000 
02808000 
02809000 
02810000 
02810100 
02811000 
02812000 

02414600- 

02814000 

02815000 

02816000 

02817000 

02818000 

02818010 

02818020 

02818030 

02818040 

02818050 

02819000 

02820000 

02821000 

02822000 

0282 300° 
02824000 

02825000 

02826000 

02827000 

02827100 

02827200 

02827300 

02827400 

02821600 

02829000 

02830000 

OlIIiTOO" 

02832000 

02833000 

"O'SSWW 

02835000 

02836000 

02T370W 

02838000 

02839000 

O2B4OO00 

02841000 

02642000 

028TT1UOO 

02844000 



T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
* 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 

T 

T 
T 
T" 

T 

T 

f 

T 

T 
-j 

T 

T 

f 

T 

T 

T 

T 

T 

T 

T 

T 

f 

T 

T 

7 

T 

T 

T 

T 



0029 
0029 
0029 
0029 
0031 
0042 
0042 
0045 

0046 
0046 
0046 
0052 
0052 
0052 
0052 
0052 
0454 
0054 
0056 
0057 
0057 
0058 
0058 
0060 
0061 
0064 
0064 
0064 



0071 
0072 
0077 
0078 
0079 
008 i 

0082 
0084 
0088 
0089 
0092 
0092 
0097 
0098 
01 02 
0105 
0106 
0106 
0107 
0109 
0106 
0111 
0114 
0117 
0119 
0121 
0122 
0127 




tf&J 



« « 1 



OP «■ N-1J 

PREC * IF N $ 4 THEN N-l ELSE 4; 

GO Tn XITJ 
END; 
^S^ i.?; BEGIN T * "FUNCTI"; NEXT * 16; SCN «■ 6; GO TO XIT END; 
G4S^/Y; BEGIN T * ACCUM[13 * NEXTACC; 

NEXTaCC * NEXTACC2; SCN «■ 6; 

end; 

end of case statement; 

if not filf.tog then 
if eostog then 

BfGIN 

next ♦ o; 

if t • ♦•; ♦• then go to casestmt; 

CM£CKRtS£&UE0J~ - - 

if next > then go to xit; 
end; 

IF CIDInF0*TIPECT,C12i6)]>>0 THEN 

BEGIN 
BKI NE*T*ID '> 

IF NOT FILETOG THEN 

IF SCANENTER*((FNEXT*SEARCHCT))«»0) THEN FNEXT«"ENTERC IDI NFQ# T ) 
ELSE IF GET(FNEXT).CLASS«DUMMY THEN FNEXT«-GETC FNEXT + 2 ) .BASE ; 
GC yIT ; 
EKD ; 

GO CASElC-IDINFO] * 
cbjuti LI I 

(7 begin numtype «- intype; next * num; xta * acro; 

FNEyT ♦ BBLOW *■ Cl * 0; 
XTA «■ CONVERT (FNExf,Cl,XTA #TS); 
WHILF TS i 9 DO 
BFGIN 

XTA ♦ CONVERT(FiVCWXTA ,j$)) 
IF CF2 ♦ FNEXTxTENCCH+Fl) 5 MAX 
THEN FNEXT * F2 
ELSE BEGIN 

NUMTYPE «■ DOUBTYPE; 

DOUBLEC FNEXT* DBLOW*TEN[C 13' TEN[69+C13#x» 
Fl#0#>#*-VFNEXt»DBLOW|; 
END* 

end; 

IF CHAR a ". " OR CHAR » "E " OR CHAR a "D 

CHECKPERIOD 
ELSE IF CHAR * M H " THEN HOLLERITH; 

go to x it; 

end; 

- ^ L2! - - - 

/ begin prec * 4; op ♦ 7; go to xit end; 

L3« 

BEGIN PREC * 4; OP * 8; GO TO XIT END; 

L4I 

begin prec * 5; op * io; next * plus; go to xit end; 

L5.A „ __.. 

BEGIN 

FNEyT «• DBLOW ♦ Cl «■ 0; NUMTYPE «■ REALTYPE; 



028A500Q T 

02846000 T 

02847000 T 

02848000 T 

02849000 T 

02830000 T 

02831000 T 

02852000 T 
02853000 T 
START OF SEGMENT ** 
89 IS 16 LONG/ 



02854000 
02855000 
02856000 
02857000 
02858000 



"THEN 



> 



«7 -K 



T 
T 
T 
T 

T 



-4ass««o-& t 

02860000 T 

02861000 T 

02862000 T 

02862100 T 

02862200 T 

02862300 T 

02862400 T 

02862500 T 

02862600 T 

02862700 T 

02862800 T 

0286 30°° t 
02864000 T 

02865000 T 
02866000 f 
02867000 T 
02868000 T 
02 869000 f 
02870000 T 
02871000 T 
02872000 f 
02873000 T 
02874000 T 
02875000 T 
02176000 T 
02877000 T 
02878000 T 
02879000 T 
O2?8JO0_0 T 

"02884000 f 
02885000 T 
02898100 T 
02899000 T 
02899100 T 
02900000 T 
08900100 f 
02901000 T 
02910100 T 
029 11 000 T 
02912000 T 



0127 
0129 
0132 
0132 
0133 
0137 
0139 
0140 
0141 
***** 

NEXT 
0141 

0142 
0143 
0143 
0144 

0146 
0147 
0147 
0149 
0149 
0150 
0151 
0153 
0162 
0163 
0163 
0165 
0166 
0168 
0170 
0172 
017*. 
0174 
0177 
0179 
0180 
0181 
0182 
0184 
0186 
°186 
0186 
0190 
JD190 
0197 
0199 
0199 
0199 
0201 

_°2Pi 
0203 
0203 
0203 
0206 
0206 



*** 

Seg 



89 

81 






^CAN 



I 




CHECKPERIODJ 02913000 

T «■ EXACCUMtli; 02914000 

IF ScN - 12 THEN 02915000 

BEGIN SCN ♦ i; 02916000 

IF N * EXACCUMC23 < 1 THEN 02917000 

BEGIN 02918000 

NFXT ♦• NUM; FNEXT * Nl 02919000 

NuMTYPE * LOGTYPE; GO TO XlT; 02920000 

END; 02921000 

NEXT * 0! 02922000 

OP * N"i; 02 92 3^00 

PREC * IF N 5 ft THEN N*l ELSE 41 02924000 

GO TO XIT; 02924100 

ENOJ 02925000 

IF NFXT X NUM THEN BEGIN NEXT «• NUM| XTA ♦ T; FLOG(Ul) END; 02925100 

GO TH XIT; 02926000 

END..1 : : .:.::. : ' .;. .: :nzs^zaas: 

A . L6t 02929100 

% pi ( BEGIN NFXT «■ LPAREN; GO TO XIT END; 02930000 

L7t 02930V00 

^7 < BEGIN PrEC * OP * 4; GO TO XIT END; 02931000 

LSI 02938100 

idlk-yO BEGIN IF OATATOG THEN IF CHECKOCTAl THEN GO TO XlT; 02939000 

IDINF0«-TIPEC123; GO BK I 02939100 

END; 02939200 

1 L9i 02942100 

r BEGIN NFXT ♦ DOLLAR; GO TO XIT END; 02943000 

„ Ll°» 02943100 

-rT IF CHECkEXPCNCR* NCR* T) THEN 02944000 

BEGIN PREC «• 9; OP * 15; NEXT ♦ UPARROWI GO TO XIT END ELSE 02945000 

. ju. • * \ 1-+H : — ■ 0294 5 100 

(/»***{•*)) ^* BEGJ N PpFT «. 7; Q p «• J3r NExf * STAR; GO TO xlT END7 >'" 02946000 

L12I — <: ~ 02946100 

BEGIN PREC * 5; OP * 111 NEXT «• MINUS; GO TO XIT END; 02947000 

. LI 3 1 02947100 

J tfl L BEGIN NFXT ♦ RPAREN; GO TO XIT END; 02948000 

L14I 02948100 

') begin nfxt * semi; go to xit end; 02949000 

\ , Ll5t 02949100 

^ BEGIN PREC * 4| OP * 5; GO TO XIT END; 02950000 

L16I O295 11 00 

/ BEGIN PREC * 7; OP * 14; NEXT * SLASH; 60 TO XIT END; 02952000 

L17I 02960100 

*) BEGIN NfXT ♦ COMMA; Gn TO XIT END; O2T6TOOO 

u L18I 02962100 

7 BEGIN PREC ♦ 4; OP ♦ 9) GO TO XIT END! 02963000 

m <~ «i J& Ll9 ' 02963100 

01 n -%( BEGIN NFXT * EQUAL; GO TO XIT END; 02964000 

-i L20I 02964100 

-I BEGIN XTA * t; FLAGCO)! GO TO CASESTMT END; 02965000 

n L21I 02965100 

'' f, \ n fe BEGIN QuOTESTRlNG; GO TO XIT END; 02966000 

XITI 02971000 

IF DEBUQTOG THEN WRITaLIST(FD#3,NEXT#T#« «#0#0#0#0,0) I 02972000 

02973000 

XTA * NAME * f; 029T4WO 

END SCAN; 02975000 



0208 
0209 

0210 
0210 
0212 
0213 
0214 
0215 
0216 

0216 
0217 
0218 
0222 
022? 
0222 
0226 
:Q23* 
0226 
0227 
0228 
0229 
0230 
0231 
0233 

0235 
0235 
0235 
0236 
0237 
0238 






f^tit^ , 




0245 
0246 
0248 
0249 
0250 
025i 
0252 
0253 
0255 
0255 
0257 



0259 
026_0 
0262 
0262 

0263 



0266 
0266 
0267 
0267 
0271 
027i 
0272 



«» 



.1 



m 



81 IS 278 LONG* NEXT SEG 



PROCEDURE WRAPUP* 

COMMENT WRAPUP OF COMP III AT ION; 
BEGTN 
ARRAY PRT[0l7#0«127]# 

SEGbirfcoV7,oTi2nv 

SEgO[0«29jJ 

array ftlescoibiggestfilenb1j 

integer thebiggest; 

save array fpbc0u0223; x file parameter block 

real fps*fpfj x start and end of fpb 

REAL .£S£fixE.SixE.lJixMFlj3j.IimM^£IVI..Y.E*.FPB.X; 

BOOLEAN ALF; 

REAL PRTADR, SEGMNT* LNK, TSEGSZ* Tl» I, FPBSZ* 

DEFINE 

SPDEUN* FPBSZ#* 

ENDnEF»#; 
ARRAY iNTLOCtOllSO]; 
REAL JJ 
FORMAT SEGUSCAG*." IS SEGMENT "v H# 

", PRT IS "t A4* ",")J 



START 



02976000 
02977000 

0297~80W 
02979000 
OF SEGM ENT 

02980000 
02981000 
02982000 



0506 
0506 

0506 
0506 



LIST S E G L S ( I D N M # NX A Vl L * 
LABEL LA» EnDWRAPUPJ 
LABEL OQQDISKDEFAULT; 

CO MM 

DEFINE SGTYPF* C 

SGTYPC= 1 

PRTLINKF* 
PRTLJNKC* 
SGLCF" » 
SGLCC ■ 
DKADRF m 

DKADRC * 
COMMENT FORMAT 
COMMENT SEG0C0I29] 
WORD 


i 

2 

3 

4 

5 

6 

7- [2 I 13 

7-C18M5 

7»[33«15 

; 

COMMENT FORMAT 



Tin 



02983000 
02984000 
02985.000 

02987000 
02988000 
02988900 
02988910 
02988990 
02989000 
02990000 
02991000 
OF SEGMENT 
02992000 T 
91 IS 12 LONG, 



START 



********** 90 

f 0002 

T 0004 

T 0005 

T 000 7 

T 0007 

T 0009 

t -4oei- ::: - ;;: 

T 0009 

T 00°9 

T 0009 

T 0009 

T 0009 

T 0009 

T OOli 

T 0011 

********** 



OF SEGMENT DICTIONARY -RUN 
■ PROGRAM SEGMENTS 
* MCP INTRINSIC 
» DATA SEGMENT 

X LINK TO FIRT PRT ENTRY 



enttormaT of segment dictionary - run I TIME I 

U23## %0 
I46»2#,X1 

" %'i 

cat io}## 

8J38*10#> 

C 18 ITS J#i % SEGMENT SIZE 

23»38»10## 
C 33 1 153#* X 
X 
33»13«15#J 
OF FIRST SEGMENT OF CODE FILJ> RUN TIME* 



RELATIVE DISK ADDRESS OF 
OR MCP INTRINSIC NUMBER 



SEGMENT 



02993000 
02997000 
02997010 
02998000 
02999000 
03000000 
03001000 
03002000 
03003000 
03004000 
03005000 
03006000 
03007000 
03008000 
03009000 



CONTENTS 

LOCATION OF SEGMENT DICTIONARY 

size of Segment oicflONARY 

LOCATION OF PRT 
SIZE OF PRT 

IOC A T 1 N F Ft L E~" P A R" A M E T E R B LOCK" 
SIZE OF FILE PARAMETER BLOCK 
STARTING SEGMENT NUMBER 

IND FORTRAN FAULT "DEC 

] NUMBER OF FILES 

3 CORE REQUIRED/64 

OF PRTJ 



03010000 

030H000 

03012000 

03013000 

03014000 

03015000 

0301 6 OW 

03017000 

03018000 

03018100 

03019000 

03020000 

050TTOOO 

03022000 



OOH 

NEXT SEG 
OOli 
0019 
0019 
0019 
0019 
0019 
0019 
0019 
0019 
0019 
0019 
0019 
0019 
0019 
0019 
0019 
0019 
00 19 
0019 
0019 
0019 
0019 
0019 
0019 
0019 
0019 
0019_ 
00T9 " 
0019 



91 
90 



DEFINE 



DEFINE 

REAL STREAM 
BEGIN 

«- 



FLOF ■ COU3 ■ 
MODEF «[4»2]#» 
M0DEC*4l46l2#» 



1101 
X 



STOPF «[6iU#, 
STQPC»6l47tl#, 
UINKF «[7»il]#* 
LINKC"7I37«11## 
FFF =[18I15]#,X 

FFC "ii8'i33i"i5#i" 
SINX » C33I15]*II 

PDR » t37l5J#, 
PDC * U2I6JIU 
PROCEDURE MKABS(F); 



SET BY STREAM 
THUNK 

1 ■ WORD MODE PROGRAM DESCRIPTOR 

2 ■ LABEL DESCRIPTOR 

3 m CHARACTER MODE PROGRAM DESCRIPTOR 
STOPPER ■ 1 FOR LAST DESCRIPTOR IN 
CHAIN OF SAME SEGMENT DESCRIPTORS 

-j-p STOP ' m o THEN'RRfLINK " 

ELSE LINK TO SEGDICT 
I NDEX INTO ..SEGMENT q I C T I ON I AR t Y 

RELATIVE ADDRESS INTO SEGMENT 



-* F4 HKA&& * S-I-f- 



end mkabs; 



03023000 
03024000 
03025000 
03026000 
03027000 
03028000 
03029000 
030 300TJ0 
03031000 
03032000 
03031000 
03034000 
03035000 

oyoysow 

03037000 
03038000 

03040000 



T 


0019 


T 


0019 


T 


0019 


T 


0019 


T 


0019 


T 


0019 


T 


0019 


T 


DOR 


T 


0019 


T 


0019 


T 


Wt.9 


T 


0019 


T 


0019 


T 


WI9 


T 


0019 


T 


0019 


T 


wveu 


T 


0020 



REAL STREAM PROCEDURE BUlLDFPB( DEST,FILNUM,F ILT YP#MFID#FI0» IDSZ> 

idnm*spdeun)j 
dest*idsz»spdeun; 



VALUE 
BEGIN 



END 



di «• oest; 

si ♦ filnum; si ♦ si ♦ 6; os * 2 chr; 
si •• piLtYpi si ♦ si ♦ 7; os * chr; 
si * mfid; si ♦ si + t; os * 7 chr; 

si ♦ fid; si * si + i; ds ♦ 7 chr; 

st* loc td'szrsi "'♦ st * 7; os «•' chrj 

si * idnm; si ♦ si ♦ i; ds * idsz chr; 

si*loc spdeun;si*si+6;ds«.2 CHR;X disk speed & EU NUMBER+1 

BUTlOFPB ♦ Of; 

os ♦ 2 lit "0*; 
buildfpb; 



03041000 


T 


0021 


03042000 


T 


0021 


03043000 


T 


0021 


03044000 


T 


0021 


03045000 


T 


0022 


03046000 


T 


0022 


133047000 


t 


0023 


03048000 


T 


0023 


03849000 


T 


0024 


03050000 


T 


0025 


03051000 


T 


0028 


03051200 


T 


0027 


03052000 


T 


0027 


03053000 


T 


0028 


03054000 


T 


0028 



REAL STREAM 
BE&TN 

SI 



PROCEDURE GITSZ(F); 



END 



«• F; SI *SI + 7} TALLY ♦ 71 
3CIF SC * " " THEN JUMP OUT; 

SI *SI - l; TALLY «■ TALLY + 63;); 
6ITSZ «• t ALLY; 

gitsz; 



03055000 T 


0029 


03056000 T 


0029 


03057000 f 


0030 


03058000 T 


0030 


03059000 T 


0032 


"030600150 f 


W3T 


03061000 T 


0033 








STREAM pROCEDURrM0vE(P#TVSZ); VALUE SZ; 
BEGIN 

si «■ f; di *t; ds «■ sz wds; 

end move; 



03062000 f 0034 

03063000 T 0034 

03064000 T 0035 

03085000 T 0036 



<i 



INTEGER PROCEDURE MOVEANDBLOCKCFROM,SlZE > J VALUE SIZE; 

ARRAY FROM[0#03J INTEGER SIZE; 
BEGTN 

REAL T#NSEGS,J,i; 

STRrAM PROCEDURE M2(r,T>; BEGIN SI«-F; Ol*T; DS ♦ 2 WDS; END M2i 



03066000 

03067000 
03068000 

03069000 

START OF SEGMENT 

03070000 



T 0036 

T 0036 
T 00 36 

T 0036 

********** 

T 0000 



92 



NSpGS ♦ (SIZE+29) oiv 30; 

IF DALOCDIV CHUNK < T" * (DALOC ' ♦' NSEGSTDTV CHUNK 

THEN DALOC * CHUNK x T; 
MOVEANDBLOCK * DALOC; 

0.0 flEfilJSl EQ.fi J ♦.6_.SI£P. 2 MiilU J < 30 AND- KSlZE OH. 

BEGIN 

M2(FR0MCI.C36l53#I#[4ll7]]#C00ECJ>)l 
I ♦ 1+2) 

end; 

writeccooecdalocn; 

DALOC * DALOC + iJ 

end until i > size; 
end moveanoblock; 



92 "IS 



03071000 T 
03072000 7 
03073000 T 
03074000 T 

03076000 T 
03077000 T 

03078000 T 
03079000 T 

03080000 T 
03081000 "f 
03082000 T 
03083000 T 
32 LONG, 



OOOl 
T3W2 
0004 

0007 
00Q§ 

0013 
0013 
0018 
0020 
0020 
0025 
0026 
0027 
NEXT SEG 



90 



STREAM PROCEDURE MDESc < VLU#PRT >; VALUE VLU; 
BEGIN 

di <- loc vlu; ds * set; % flag bit 
di «• prt; si *■ loc vlu; ds «■ wds; 
end mde sci 



03084000 

03085000" 
03086000 
03087000 
0308ffD"O13 



0036 

0036 
0037 
0037 



INTEGER STREAM PROCEDURE MAKEINTCS); 
BEGIN LABEL LOOP! l.et.AL"'T| 

si * s; si * si ♦ 3; 

LOOPt If SC Jt "0* THEN_ 

BEGIN TALLY"* TALLY ""♦ lT SI* Si "'♦ IT ecTfOlWPl EN'ffl" - 

T ♦ TALL Y ; SI * S; SI * SI * 3; DI «■ LOC MAKEINT; DS ♦ T OCT; 
END MAKFlNT; 



LABEL FOUND; 
FORMAT 

FILEF(A1# A6# xi# 



"FILE IDENTIFIER* PRT IS % A4, %")# 
BL0KF(A6* X5# "COMMON BLOCK* PRT IS "* A4» 
'•# LENGTH IS "* I5» " WORDS,"); 



03089000 T 


0036 


61990050 f 


0038 


03091000 T 


0039 


03092000 T 


0039 


03093000 T 


0040 


03094000 T 


0041 


03095000 T 


0043 


03096000 T 


0044 


03097000 T 


0044 


03098000 T 


0044 


START OF SEGMENT ********** 


03099000 T 


0044 


03100000 T 


0044 


03101000 T 


0044 



93 



mR 



COMMENT DUMP OUT ACCUMULATED FORMAT AND NAME ARRAYS; 
IF FNNINDEX * THEN 

BEGIN FNNPRT * PRGDESCBLORC 1*FNNPRT*0# NXAVIL ♦ NXAVIL ♦ l)t 
WRTTEOATACFNNlNOEX#NXAVlL»FNNHOI»D)l 

end; 
if savesubs > then 

BEGIN Tl »« GETCT «■ GL0bALSEARCHC.SUBAR»)*2>; 
PUTCT»Tll»TUSAVESuBS[TOSlZEJ); 

end; 

T1*PRGDESCBLDR(1/23»0»NSEG*NXAVIL*NXAVIL*1> ; X BUILO TPAR AT 
FILL LSTTC*3 WITH 21(0)>8C" »> ; % R + 23 



BEGTN 



WRITEDATA(29,NXAVIL*LSTT) ; 
PDPRTE(PDlNX-l),t37l53»(P0lNX-»l).C42l6]], [6113*1 ; % 

XI *...P.RfiJ)ES.CBL0RClx22j..Q.x.NSEfi -* NUUOL-* NXAUIL..+. ill 

WRITEOATA ( 138, NXAVIL* TEN ) ; X POWERS OF TEN TABLE 
IF LSTI > THEN 

WRITEDATA(LSTI> NXAVIL ♦ NXAVIl+1* LSTP); 
LSTA 4- PRG0ESCBLDRC1* LSTA, 0, NXAVIL); 



SAVE BIT 



END; 
BEGTN 



IF TWOOPRTX * THEN 



FILL LSTT[*3 WITH 
0CT0000000421M0010* 

C T'S 30i"6 1 3 CTi'4 12025/ 
0CT202l0l04«22l5055# 
0CT2245400320211025, 
OCT 1 06 17/404 31 041 5 » 
0CT1025042112350000; 

T * PRGDESCBLDRCO, TWOOPRTX* 
WRITEDATAC-6, NXAVIL* LSTT); 



93 IS 27 LONG, 

03102000 T 
03103000 T 
03104000 T 
03103000 T 
03106000 T 
03106100 T 
"0311)6123 T 
03106150 T 
03106175 T 
03106200 T 
03106205 T 
START OF SEGMENT ** 

94 IS 29 LONG, 

03106210 T 
03106215 

ouoxooo 

03108000 
03109000 
03110000 
03111000 
03112000 
03113000 
03114000 
03115000 
03116000 
03117000 
START OF SEGMENT 



0# NXAVIL * NXAVlL+l); 



95 IS 



03118000 
03H9000 
03120000 
03121000 
03122000 
6 LONG, 



T 

T 
T 

T 
T 
T 
f 
T 
T 
T 
T 

** 
._. 

T 
T 
T 
T 



END) 




BEGIN 



EGlN 



FPS 

SEfiMEN 

F2T0G 

GSEG * 

FPB_I * 

EMlflT 

EMITL( 

EMlTLC 

EMlfLC 

EMITLC 

I «■ GL 

I * I* 
GETALL 
TF~IW 

I 
FPBI * 

P R"I '""*■"" 
IF (XT 



omment Declare global files and arrays; 
fpe * mkabscfpb); 

TSTART; 

♦ true; 
nseg; 

°i 

6)1 E^itL(2); emiTocsSf); 

d; % set block counter to i 
16); emitO(std); 

OT r TWITOFD eXTTC 2 3 > r EMI TO iWLTT 

realcholtog)); emitpair(21,sto); 
obalnextinfo; while i < 4093 do 



(i,infa»infb,info; 

A ~~ .XITAST"« -TTLETO" 

FPBI + i; 

I NTT" 7ADDR;" "" 

A ♦ INfB } . C 181 63 



THTN 



< 10 THEN 



03123000 T 
03124000 T 
03125000 T 

"03 1 26000 f 
03127000 T 
03128000 T 
03129000 f 
03130000 T 
03131000 T 
03T32000T 
03133000 T 
03134000 T 
03O8000T 
03139000 T 
03140000 T 
011TTOW T 
03142000 T 
03143000 T 

~O3T4~40O0"T~ 
03143000 T 
031 4600 T 

~O3T4TOO0 T 
03148000 T 



NEXT SEG 

0044 

0044 

0045 

0049 

0051 

0051 

0031 

0033 

0037 

0057 

0060 
******** 

NEXT SEG 

0062 

0064 
-..-0-0JS9 

0072 

0074 

0075 

0075 

0078 

0080 

0080 

0081 

OO81 

0082 
******** 

oois 

0083 
0083 
0083 
OO83 
NEXT SEG 
0083 
0086 
0068 
"0016 

0088 
009i 

0091 

0093 

0094 

009T~ 

0097 

0097 

009? 

0101 

0103 

0106 

0106 
0107 
"0109 
0110 
0110 

0113 



90 



94 
90 



95 



90 



«, •♦ 



# 

m 




begtn 



END; 



IF XTA ♦ MAKEINT(XTA) > BIGGESTF ILENB THEN FLAG<77) ELSE 

FILES[XTA3 ♦ PRi; 

IF XTA > THEBIGGEST THEN THE8IGGEST «■ XTA; 



emito(mks); 

if j ♦ infc .adinfo * then x option file 
begin filtvp ♦ INfc .link; 

IDNM * " "& M FILE M t6»24l24]&INFBC30ll8tl83; 

ti * gitszcionm); 
fid * fileinf0c27j]; 

MFID * FILEINFQC1»J3; 

IF FILTYPSIO ANO CT*FILEINFQC 3# J3 .DKAREA5Z )*0 THEN 

BEGIN XX* SET JJP" <DiSk FILE i bESCRIPfl0N>r 

SPDEUNI«FILEINFOt3'J].SENSPDEUNF; 

B*IF (B«-(CJ*FILEINF0C0#gi>,[18ll2])/(IF A*J ,C 30» 123*0 THEN 

j ELS E A"j) < 6 TH EN \ EL S E ^ * " "" "" 

XXX B»ORIGINAL •♦BLOCKING'* SIZE « * LQGRECS/PHYSREC , 
A*ENTIERCBxENTIER<T/(20*B>+, 999999999)+, 5) ) 

XXX T«"AREA" SIZE ■ * LOGRECS IN TOTAL FILE. 
XXX A*# LOGRECS PER ROW. 
B*ENTIER(T/A+. 9999999993 ; 

XXX B « # ROWS IN FILE. 

EQUIVALENT ALGOL FILE DESCRIPTION « [BIA3. 

the above logic yleldsl shortest row containing 
an Integer number of physi c a l records and whi ch 
requires 20 or fewer rows for the total area* t. 

EMITNUM(A) ; 



XXX 
XXX 

XXX 
XXX 
EMITNUM(B); 



v end else 

begin emitlco); emltl(o); 

( j * fileinf0c0#j]; x this one has all the goodies 

end; 

QQQDISkDEFAULTI 

ESTIMATE + ESTiMATE + CJ.C42»6])xClF A* J, 1 1 8 1 1 23*0 THEN J.[30«123 

ELSE A) J 
EMiTL(J.r4»2]); X LOCK 
EMITLfFPBl); X FILE PARAM INDEX 




END E 
BEGTN 



EMITDFSCLIT(PRI); 
EMITLCJ.[«2»63); 
EMITLU.t3il]); X 
EMITNUM( J.C30I123) 
EMITNUMCJ.C18U23) 
EMITNUMCJ.C 61123) 

LSE 



X PRT OF FILE 
X # BUFFERS 

RECORDING MODE 
; X RECORD SIZE 
; X BLOCK SIZE 
; X SAVE FACTOR 



'BEGTN 



alf *true; 

if(filtyp*i«ifc.link«2 or f iltyp»12 ) and infb . c18 16 3s9 then 

IDNM ♦ 0& H FILE"t6«24l243«INFBt30U8jl83 
' ELSE 

alf * fal?_e;_ 

IF (IDNM «• " " t Z NF8 C6 1 1 S i 30 3 ) » "READR " THEN 
IDNM * "READER «i 



IF 
IF 



END; 

IONM« 

IDNM 



""READER "QR ioNM»«FILES " ""' tHfN IDNM*"CARD " ~fC"S"£~"" 

"FILE6 " THEN BEGIN IDNM*«PRINTER"; FILTYP*18;END ELSE 



Q1119D0.0 ....: 
03150000 i 


(■■ mi 




03151000 1 


r oii9 




03152000 1 


r 0123 




03153000 i 


r 0X25 




03154000 i 


r 0125 




03155000 1 


r 0126 




03156000 1 


r 0127 




03157000 1 


r 0129 




03158000 1 


r 0132 
r 0134 




03159000 1 




03160000 1 


r 0135 




03161000 1 


r 0137 




03162000 1 


_ Tur 




03162005 1 


r ot4i 




03162007 i 


r 0144 




03162014 1 


p.... Q147 




03162020 1 


r 0152 




03162030 1 


r 0152 




03162040 1 


r 0158 




03162050 1 


r 0158 




03162060 ' 


r 0158 




03162070 1 


r oi6o 




03162080 1 


r oi6o 




03162090 1 


r oi6o 




0T162100 i 


r "0160 




03162110 1 


r oi60 




03162120 1 


r 0160 




03162129 1 


r 0162 




03163000 1 


r 0162 




03164000 1 


r 0168 




oTrewnr i 


r OTTff 




03164045 ( 


: oi7o 




03164050 1 


r 0l7i 




03164100 1 


r 0174 




03165000 1 


r 0176 




03166000 1 


r 0178 




03167000 '' 


r 0178 




03168000 1 


r 0178 




03169000 1 


r 0179 




3170000 1 


r 0180 




03171000 1 


r 0182 




03172000 1 


r 0183 




03173000 1 


f 0184 




03174000 ' 


r 0185 




03175000 1 


r 0185 




03176000 1 


r 0186 




03i77000 1 


r 0187 




03178000 1 


' 019J 




3 179" 000 l 


r 0194 




03180000 1 


r 0194 




03181000 1 


r 0196 




03182000 1 


' 0196 




03183000 1 


r 0199 




03184000 1 


r 0200 




03184010 ( 


: 0200 




03184020 ( 


: 0203 






BEGIN x .._ , 

EMITL(20); EMITL(600)J 
J*0&2C42U2«63&10t30 

fidmnnmj mfid«-"fortem 
go to oqooiskdEfaul 



FtLTYP«-l2; X20 x 600 REC DISK 
«36«12]&300C18I36I 12]; 
P"; T1*GITSZ(IDNM); 

t; 



; 



Tl * GITSZUDNM); 

fio i" ♦ idnh; 

MFID ♦ 0; 

DCINPUT AND ALT THEN 

EMlTL(20jT 

EMITtdOO); 

EMITU(2) 

EMlTLtF^lI); 

EMTjflESCUlT(PRI) 

„ ITL(2); 

•e*4*w*4-ii 

EMITUIO); 

EMITLC30)* 

EMlTL(l); 
End ELSE 
BfGIN 

EMITL(O); 

EMITL(O); 

EMITLCO); 

EMITLCFPBIW 



BEGIN 

* D'I"SK ROWS 

DISK RECORD PER 

REWIND AND LOCK 

FILE NUMBER 

PRT OF FILE 

number of buffers 

R^GSltgi w4 ~"MaG€ 

Record size 
block size 
save factor 



row 



x 
x 

X 
X 



DISK ROWS 
DISK RECORDS PER 
REWIND & RELEASE 
FILE NUMBER 



ROW 



EMITDESCLIT(PRI); X PRT OF FILE 
'EMlTLiaVi " X 2 BUFFERS 

EMITLCREAL(ALF)); 

EMITLHF FILTYP * THEN 10 ELSE 17); 
"E'Ml"TL('0)i * 15 WORD BUFFERS 

\ emitl(o); x save factor (scratch by default) 

\ end; 
^end; 

EMlTLfll)^ % INPUT OR OUTPUT 
EMITL(8>J X SWITCH CODE FoR BLOCK 
EMIT0PDCLITC5); X CALL BLOCK 

FPF*BUILDFPB(FPE#FPBI#FILTYP»MFID>FID#T1»IDNM#SPDEUN)J 
IF PRTOG THEN WRITALIST< FILEF, 3# IONM, [6 16] , I DNM, B2D( PRI )# 
0»0#0,0»0) i 



END 

t begtn 



ELSE 

IF INFA, CLASS ■ BLOCKID THEN 



IF *RTOG THEN WR ITAL 1ST CBLOKF* 3> INFB* B2D( INFA. ADDR )# 

INFC.SIZE»0»0#0#0,0) I 

IF INFA < THEN ARRAYDECU)* 
ENOJ 

IF (Tl * INFA .CLASS) i FUNID 
AND Tl S SUBRID THEN 
BEGTN X CHECK FOR INTRINSIC 

PRI * OJ 

IF INFA .SEGNO ■ THEN 
BEGTN 

A*OJ B«-NUMINTM1 \ 

WHILE A+l < B DO 



03184030 C 0211 
03 1 84010 C 0215 






03184050 C 0217 




03184054 C 0221 




~0 3X84060 C 0224 




03184070 C 0226 




03185000 T 0226 




03186000 T 0227 




03187000 T 0228 




03187100 T 0229 




01117200 T 02Ti 




03187300 T 0231 




03187400 T 0232 




03187450 T 0233 




03187500 T 0234 




03187550 T 0234 




-&34I7-4S6 ? $$H - 


~- ■ ■ — 


03187650 T 0236 




03187700 T 0237 




03187750 T 0237 




03187800 T 0238 




03187900 T 0238 




03188000 T 0239 




03189000 T 0239 




03190000 T 0240 




03191000 T 0241 




03192000 T 0242 




03193000 T 0242 




03194000 T 0242 




03195000 T 0243 




03196000 T 0244 




03T970W T 0^47 




03198000 T 0247 




03198500 T 0248 




03199000 f 0248 




03200000 T 0248 




03201000 T 0249 




03202000 f 0250 




03203000 T 0250 




03204000 T 0254 




03204010 T 0258 




03205000 T 0260 




03206000 T 0260 




03207000 f 0260 




03208000 T 0261 




03209000 T 0262 




OfgiOOOO f" 0266 




03211000 T 0268 




03212000 T 0270 




03213000 T 0T270 




03214000 T 0271 




03215000 T 0273 




032I60U0 f 0273 




03217000 T 0274 




03218000 T 0275 




0T2T90O0 T 0276 




03220000 T 0277 





»» 



• • .« 




BEGIN 

PRI ♦ REAl(BOOLEANCA+B) AND B00UEANC1022)); 

IF IDNM <• INTCPRI] ■ INFB THEN GO TO FOUND; 

IF INFB < IDNM THEN B ♦ PRI. [361113 ELSE A *■ PRI, C36I 11 ] J 
END* 

IF IDNM «• INTtPRl*(A4.B)X2-PRn « INFB THEN GO TO FOUNOJ 
XTA * INFB; FLAG(30)j 

go to la; 

FOUnDI 

IF (Tl*INTtPRI+l) l INTPARMS)XO 

AND INFC < 6 

THEN IF Tl * IN£ C,NEXTRA 1M ZR 

§ElTFN~TtT~riNFi } FLAGC28); END; 

IF (Flb*INtLbCtMFiD*INTi:PRl*l].INTNUM]}«0 THEN 
BEGIN 

PDPRT[PDIR#PDIC3 ♦ 

„.....oiu&i*p£J 

4MFI0CDKAC3 

4CFID «• INTL0CCMFID3 * NXAVIL * NXAVIL ♦ 1H5GNOC3 
&USEGSZC3; 
PDINX * PDINX + 1) 
'END) 

Tl «• PRGDESCBLDR(1,INFA ,ADDR#0,FIO); 

IF PRTQG THEN WRITALIST<SEGUS# 3> IDNM#FID#B2D< Tl ), 0#0, 0#0#0 } ; 
IF I NT CPR I + 13 < THEN 
/BEGIN 

Tl * PRGDEsCBLDR<l,lNTtPRI+13.INTPRT#0#FID)J 
\ INTCPRI+13 * ABS(INT[PRI ♦ 1]); 
^NDJ 
END 

ELSE IF PRTOG THEN WRITAlIST ( SeGUS* 3# INFB» 
lNFA.SEGN0#B2D(lNFA,A0bR}#O#0»0»b#b) I "" 
END] 
LA* 
END; 

COMMENT MUST FOLLOW THE FOR STATEMENT; 
IF FILEARRAYPRT * THEN 
BEGIN X BUILDING OBJECT TTME FILE SEARCH ARRAY 

J * PRGDESCBLDR(1»FILEARRAYPRT»0#NXAVIL ♦ NXAVIL ♦ 1); 
WRITEDATACTHEBIGGEST ♦ 1* NX AV IL»FILES ); 



Q32 2 1000 
03222000 
03223000 
03224000 

03225000 
03226000 
03227000 

"03228000"" 
03229000 
03230000 



03231000 
03232000 
032J3000 
03235000 
03235000 
03236000 

oiap^oo- T 



end; 



BEGIN 
BEGIN 



xta * blanks; 

IF NXAVIL > 1023 THEN FLAG(45)j 
IF PRfS~> 1023 THEN FLAfi(46); 
IF STRTSEG * THEN FLAG(65); 

pri ♦ o; 

WHILE (IDNM «. INTCPRI3) X DO 
IF INT[PRI*13 i THEN PRI ♦ PRI ♦ 2 ELSE 
I 

IF (Flb*INtLbc"[M"FID*lNT[PRl + i3.INTNUM"3)sO THEN" 
I 

PDPRTtPDlR»PDIC3 ♦ 
0&HSTYPC3 
4MFIOCDKAC3 
4CFI0 * INTL0CCMFID3 «• NXAVIL «• NXAVIL ♦ l)tSGN0C3 

iicsEGSZci; 

PDINX «- PDINX + i; 



03238000 
03239000 
6324bbb0 
03241000 
03242000 
03243000 
03244000 
03245000 
03246666 
03247000 
03248000 
03249666 
03250000 
03251000 
03252666 
03253000 
03254000 
03255000 
03256000 
03257000 
"03258000 
03259000 
03260000 
03261600 
03262000 
03263000 
0~"326~4~0W 
03265000 
03266000 
03267606 
03268000 

0I2M00D 
63270006 

03271000 
03272000 
6 §27 3000 
03274000 
03275000 
63276006 
03277000 



T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
t 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
t 
T 
T 
f 
T 

T_ 
T 

T 
T 
T 
T 
T 
T 
T 



0279 
0279 
0281 
0283 
0287 
0288 
0292 

0293 
0294 
0295 
0297 
0297 
0300 
037J2- 
0305 
0306 

0309 
0310 
0314 
0315 
0316 
0316 
0319 
0324 
0326 
0326 
0329 
0332 
0332 
0332 
0315 
0339 
0339 
0340 
0340 
0340 
03«i 
034i 
0344 
0347 
0347 
0347 
0149 
0351 
0353 
0354 
0357 

0160 
0360 

0364 
0364 
0366 
0368 
0369 
0372 
0374 



END) 



END; 



Tl * PRGDESCBLDR(1*INT[PRI 
PRI * PRI+2J 



♦ 13.INTPRT»0*FID)> 



FOR I * I STEP 1 UNTIL BOX DO 

BEGIN EMITO(MKS); EMITQPDClITC BDPRT 1 1 3 ) 

EMlTO(MKS); 

EM!T0PDCLlT(STRTSEG,tl8»l5j); 

T «• PRGDESCBL0R(1'0'0»NSEG); 
SEGMENTCCADR+4) DIV 4» NSEG#FALSE#EDOC >J 
IF ERRORCT * THEN GO TO ENOWRAPUPJ 
FILL SEGOC*3 WITH 

0CT020005* X BLOCK 

0CT220014* X WRITE 
0CT2300i5# X REAO 

aCXiMHUAi 



end; 



..-*.. E-li-E COAITfiOL 



FOR 



COMMENT INTRINSIC 
I * STEP 1 UNTIL 



functions; 

3 DO 



START 



96 



BEGIN 



Tl 



* PRGDESCBLDRCl#SEG0Cl].C36»12J#0# 

NSEG ♦ NXAVIL * NXAVIL +1)) 
PDPRT[PDIR#PDIC] * 
OI1CSTYPC3 
&(SEGOTn,r30l6])[OKAC3 
&NXAVILCSGNOC] 
UCSEQSZC3J 
PDINX «■ POINX '"'♦ \) 



ENDj 



DICTIONARY* 
X"USEI5""T0R 



FAULT OPTN 



COMMENT GENERATE PRT AND SEGMENT 
"PRtT0#4l"J ♦"PD"PRf[6;53 I 6J(Wiii2i6n 
FOR I * 1 STEP 1 UNTIL PDINX-1 DO 
IF (T1*PDPRTCI.PDR»I.PDC]).SEGSZF » THEN 
BEGTN X PRT - ENTRY 

PRTADR *T1»PRTAF; 
SEGMNT «-T_l.SGN0F; 

LNK i''sl6Dl'CTCSEGMNf.C38'lS']* ' S'e'GMNT '", [411 7J3VPRT AF* 
MDESC(Tl,RELADFiSEGMNTtFFCJ 
4(R^AL(LNK«0))[STOPC] 

Jlir'tw i othen sEgmnt else LNkhlinkci 

4(T1,0TYPF)CM0DEC1 
i5il«45l3)#_ 

PRT CPRTaORTC 36 »5 17PR ta D R . [4 1 1 73 3 >) 
SEGDICTCSEGMNT,C36I53»SEGMNT,C4H733,PRTLINKF ♦ PRTAORJ 

ELSE 

N X SEGMENT DICTIONARY ENTRY 

SEGMNT ♦ TUS6NQFJ 

sE6DicftTEG«^T';T3S'rsy;'5tGMT;i4Tinii; 

SEGDICTCSEGMNT.[36I5 3#SEGMNT.C4H73 3 
4T1CSGLCC] 

"'"iTHOKAbRcT" 

& Tl[4»l2lU 
&T1C6J6IU 
&fitl!l«23) 
TSEGSZ «• TSEGSZ ♦ Tl.SEGSZFJ 



END 
BEGl 



03278000 


T 


0375 


03279000 


T 


0375 


03280000 


T 


0378 


03281000 


T 


0379 


03282000 


T 


0380 


03283000 


T 


0381 


03284000 


T 


0385 


3285000 


T 


0385 


03288000 


T 


0387 


03289000 


T 


0389 


03290600 


T 


039 2 


03291000 


T 


0393 


03292000 


T 


0394 


OF SEGMENT 


********** 


03293000 


T 


0395 


03294000 


T 


0395 


:„osawee& 


JJL.... 


-04*1 


S 4 LONG 


* 


NEXT SEG 


03296000 




0395 


03297000 




0395 


03298000 




0396 


03299000 




0396 


03300000 




0397 


03301000 




0400 


03302000 




0402 


03301000 




CT403 


03304000 




0405 


03305000 




0406 


OSJOSTTOO 




0408" 


03307000 




0409 


03308000 




0411 


J30B ilTO 




Mil 


03309000 




0415 


03310000 




0419 


eyjiiwo 




Qjgy 


03312000 




0424 


03313000 




0425 


- 033 14000 




0426 


03315000 




0429 


03316000 




0431 


~OTH7000 




0432 


03318000 




0435 


03319000 




0437 


0332X1000 




0438 


03321000 




0440 


03322000 




0445 


03S230O0 




0145 


03324000 




0445 


03325000 




0445 


"0"3J26^O0 




0446 


03327000 




0449 


03328000 




0451 


03329000 




0452 


03329100 




0453 


03329200 




0454 


03330000 




0455 


03331000 




0456 



96 



90 



«« 



• » 



> • « 



1» 



ENDi 



BEGTN 



COMMENT WRITE OUT FILE PARAMETER BLOCK; 
FPBSZ ♦ (CFPE.C33U53 - FPS) x 8 ♦ FPE.C30I3] + 9) DIV 8; 
I «■ (FPBSZ ♦ 29) DIV 30J 

IF DALOC DIV CHUNK < Tl * (OALOC +1) DIV CHUNK 
THEN OALOC «• CHUNK x TU 

segoc4] «• oaloc; 

SEsbt53 + fpbsz; 

seg»C5 3.fpbversf«.fpbversion; 

for i «■ step 30 while i < fpbsz do 



END* 



MOVE(FPBtI]'CODE(0)#IF (FPBSZ-I) 

THEN 30 ELSE 
WRlTE(CODEtDALOCJ); 
OALOC ♦ DALOC + i; 

SEGiC?) 



i 30 

(FPBSZ-I)); 



SEGOC33 
SEGOtOJ 
SEGOCU 
SEGOC43 



♦ 

*■ 



* MOVEANDBLOCKCPRT,PRTS+l); X WRITES OUT PRT 

X SAVES ADDRESS OF PRT 
PRTS + l; % SIZE OF PRT 

M0VEANDBL0CK(SEGDICT,NXAVIL ♦ 1); X WRITE SEG DlCT 
NXAVIL ♦ 1J X SIZE OF SEGMENT DICTIONARY 

-GSEG; X FIRST SEGMENT TO EXECUTE 
SEGQC7], [33*153 «■ FPBIJ X NUMBER OF FILES 
SE60[73.E18»153 *■ ESTIMATE * IF X CORE ESTIMATE 

C I * -' 

ESTIMATE**©* XXX OPTION FILE BUFF SIZES ♦ DEFAULT BUFF SIZES. 

PRTS ♦ 512 X PRT AND STACK SIZE 
♦TSEGS2 * TOTAL SlZEOFCODE 
+ 1022 X FOR INTRINSICS 
+ARYSZ X TOTAL ARRAY SlZE 

+ CMAXFILE5 x 28) X SIZE OF ALL FIBS 

♦FPBSZ X SIZE OF FILE PARAMETER BLOCK 

♦ (IF ESTIMATE « THEN ELSE (ESTIMATE + 1000)) 

♦ (NXAVIL ♦ 1) X SIZE OF SEGMENT DICtiONARY 
) > 32^68 THEN 510 ELSE (I DIV 64); 

COMMENT IF SEGSW THEN UPDATE LINOICT* SEG0C03 & WRITE IT V 
SEG0C7 3 . t2* I 5 * ii" X USED FOR FORTRAN ~F A ULT DEC; 
IF SEGSW THEN 

BEGIN ._ 

FOR I * NXAVIL ♦ 1 STEP "1 UNTIL 1 DO 
IF LINEDICTU.IR,I.IC3 * THEN X INDICATE NO LINE SEGMENT 
LINCD'ICTC Z • IR» X • IC] * -II X F_0R_THI3 SEGMENT 
SEGltOi * SESOCO] "4 (^VEANDBL0Cl<(UN^0TCT»NXAWL^I)'UTOBX8nr"' 
FNDJ 

HR I TEC CODE CO : U 30* SEGO C * 3 ) J 

IF IRRORCT ■ 6 TND" SaVTTTME * fHEN"XOCK(CCfDf TJ "~ 
ENDwRAPuPt 

L0CK(T_APE>I _ XRW/L TAPE FILE. OR LOCK DISK 

if ntaptog Then lock^newtape;*")! %r"w/l t ape "OR" "crunch" disk " 

END WRAPUP* 



03332000 
03333000 
03334000 
03335000 
03136000 
03337000 
03336000 

03339000 
03339100 

03340000 

03341000 
03342000 

03343000 
03 344000" 
03345000 
03346000 
#3 34 700 
03348000 
03349000 
03 350000 
03351000 
03352000 
03353000 
03354000 
03355000 
03356000 
03356100 
03357000 
0"3 358000 
03358050 
03359000 
03360000 
03361000 
03361100 
03362000 
03363000 
03363100 
"03363150 
03363200 
03363300 
03363400 
03363500 
03363600 



90 IS 



03363700 
03363800 
03364000 
"53TJWW" 
03366000 
03366100 
333 6620$ c 
03367000 T 
564 LONG* 



T 
T 

T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
t 
T 
t 
-T 
T 
T 
T 
T 
T 
T 
T 
T 
f 
T 
T 
T 
T 
T 

T 
T 

T 
... 

T 
T 
f 

T 

H. 
T 

T 
T 

f 
T 
T 
f 
T 
P 



0458 
0459 
0459 
0463 
0465 
0466 
0469 
0470 
0472 
0474 
0478 
0478 
0478 
6183 
0485 
0490 

6*H 

0492 
0495 
0495 
0497 
0500 
0502 
0503 
0505 
0506 
0506 
0507 
0508 
0508 
0509 
0"5"69 
0510 
0511 

0514 
0515 
0519 
0519 
0522 

0523 

0527 

0530 
0536 

0540 
0540 
6545 
0549 
0549 



U"550 
0553 
NEXT 



procedure initialization; 



03368000 T 0506 



begin comment initialization; 
alpha stream procedure mkabs(p); 

begin st * p; mkabs ♦ si end; 



03369000 
0337000^ 

START OF SEGMENT 

0337*000 



T 0506 
T" 050* 

********** 

T 0000 



97 



STREAM PROCEDURE BLANKOUTC CRD» N>; VALUE NJ 
BEGIN 01 * CRD; N(DS * LIT " " ) END; 



03372000 
03373000 



0001 
0001 



XDEFAULT 



blankoutccrdcio]* «o); 

BLANKOUTtLASTSEO* 8); 

..aLAWK.0UT<4AS-TE-R-R*-8^ --X -■' — ' - 

INITIALNCR * MKABS(CRDt01)46C30U5133; 
CHRO #• MKABS(ACCUM[03)« 2t30U5t3j; 

ACRO ♦ chro+i; 

ACR1 «■ (CHR1*MKABSCEXACCUMC01) & 2C30U5»33) + 11 
ACCUMSToP*MKABS(ACCUMtU]); EX ACCUMSTOP*MKABS( EXACCUMC 1 1 J ) 
BUFL ♦ MKABSCBUFF) & 2C30l45>33l 

nextcard ♦ i; 

GLOBALNfXTINFO * 4093; 
PDINX <■ i; 
LASTNEXT«-1000 ; 

PRTS * ail % CURRENTLY LAST USED PRT 

READCCR, 10* C8C*3>I 

LIST0G*TRUEI SINGLET0G*TRUEI CHECKTOG 

FIRSTCAuL ♦ TRUE; 

IF 600LEANCERR0RCT,t46inT THEN LISTOG 

IF BOOLFANfERRORCT. [47113) THEN DClNPUT 

ERRORCT * 0; 

IF DCINpUT THEN SEGSW ♦ TRUE ; 

IF DCINPUT THEN REMOTETOG*TRUE ; 

LIMIT*IF DCINPUT THEN 20 ELSE 100 ; 

IF SEGSW THEN SEGSWFIXED * TRUE I • 

EXTRAINF0C0»03 «• & EXPCLASSCT0CLASS3 ; 

nextextra ..♦ i; 
lastmoof * i ; 

DALOC «• II 
TYPE * -II 

MAPfo3 * MAP[23 * MAPU3 * MAP[73 ♦ -16; 

MAPE53 * i; MAP[63 ♦ 21 
FILL XR[*3 WITH 0*Cy 0>0#0>0*0 • 



♦ false:; 
* true; 



h INtEGE"*"R 
M La5lC.A M > M L 

H.« a a..n. Hs 



R tt,l» *.„ 

L^OOUBLE"." 



," REAL "#" 
»,"C0MPLE"*"X 



" mm. 



•I, It 



1 ■>«■«. «.»•»« . 



X"* 

-••; 



FILL fYpES[*3 WITH * 



»V "InTgeRS * 



■'* ffRpL *] 



"LOGCAL".! M D0UBLE ,, » " c 9 Hf, )-X n *_ 
FILL KLASSt*3 WITH 



03374000 T 
03374100 T 

^^H^Q~-J- 

03375000 T 

03376000 T 
03377000 T 

03378000 T 
03378100 T 
03379000 T 
03380000 T 
03381000 T 

03381100 t 
03381200 T 
03382000 T 
03 313000 T 
03384000 P 
03385000 T 
033851-00 T 
03385200 T 
03385300 T 
033S5350 "t" 
03385355 T 
03365360 T 
03185400 f 
03386000 T 
03387000 T 

03387100 T 
03388000 T 
03389000 T 
0339UW0 t" 
03391000 T 

Q 3 39 11 00 T 
START OF" SEGMENT 

03391200 T 
03391300 T 
03 391 400 t 
03391450 T 

98 IS 31 LONG, 
"" 03T92OO0T 

START OF SEGMENT * 
03393000 

99 IT 7 LONG 

03394000 



0004 
0006 

" w'Wwf 

0006 
0011 
0014 
0016 
0020 
0024 
0026 
0027 
0028 
0029 
0029 
0030 
0034 
0040 
0041 
0044 

0047 
0041 
0051 
0054 
0057 
0060 
0063 
0064 
0064 
0065 




007i 

0073 

"*** *♦*****" 

0075 
0075 
0075" 
0075 
NEXT SEG 
01575 



T 0077 
". NEXT" SEG 
T 0077 



98 

97 
99 
97 



"NULL % "ARRAY .%."Y*RBL.E"# "STFUN "f 

"NAMlST", "FORMAT"* "ERROR ", "FUNCTN", 
"INTRSC", "EXTRNL", "SUBRTN", "COMBLK", 
"FILf "I 

FILL RESERVEDWOROSLPC*3 WITH 

"CALL ",''ENTR ">"FORm ","GOTO ","IF ","READ ", 

"REAl ","WRIT "#"DATA ","CLOS ","LOCK ","PURG "»"CHAI ", 

"PRlN ","PUNC '"*'# 

0,"Y ","AT ",0»0*0*0* H E "fO^E W #0'"E 

"N W #"T "#"H M ; 

fill reservedworost*] with 

w asst "•".back... "» w bloc ","call ", m comm ",«comp V"CQNt ", 

"OAT A %«B"ime"~"""#""00UB ","END »r»ENoF ^""CNTR "^j^KQUI ",'"" 

"EXTf ", h FUNC ","GOTO ","INTE ","LOGI ","NAME ","PAUS ", 
"PRIM ","PR06 "*"PUN'C ","READ ","REAL ","RETU "/"RENI ", 
"STOP ", M SUBR "'"WRIT " > 
"CLOs "» w LOCK "#"PllRG ", 
0,0,0* 

"FIXF m ,*vary "*"auxm ","RELE ", 

"IMPl ", 

"GN ", "SPACE ","KDATA ",0>"QN ","LEX ", W INUE 

0»"NsION ","LEPRECIS",0,"ILE ","Y ", "VALENCE ","RNAL 

,"TlON %0#"GER ","CAL ","LIST "*"E W »"T 

"RAM ","H ",6,6,"RN M ,"ND "»0#"OuflNE ", 

"E "#"E ",0,"E ",0,O,O,"D ","ING ", 

"EM ","ASE " 

»"ICIT " 

; 

FILL RESLENGtHLPC*3 WITH 

4, 5, 6, 4, 2*4,4, 5, 4* 5, 4,5,5,5,5* 



03395000 T 

START OF SEGMENT ** 

03396000 T 

03397000 T 

63396000 t 

100 IS 13 LONG, 

3399000 T 

03400000 t 

START OF SEGMENT ** 

03401000 T 

63401 lOO'T 

03401200 T 

03401300 T 



0077 

******** 

0076 
0078 

0678 
NEXT SEG 

0078 
~W79 

******** 

0080 



iOi is 3o L (j^q # 

03402000 T 

01*03000 T 

IfMt QE-SEGMENI ♦ * 



0080 

0080 
NEXT 51 G 

0080 

0081 
******** 



03404000 
03405000 
03466666 
03407000 
03407100 

03467101 
03407J02 
03407103 
03407200 
03407300 
03407400 

03407500 
03407600 

03407601 



102 



START 
103 



'03407602 

03407990 

IS 84 LONG, 

03408000 "t 

03409000 T 

OF SEGMENT ** 

IS 15 LONG* 



FILL LPfiLOBALC*] WITH 

4, t 3, 36, 17, 35, 25, 

26, 31* 8* 32, 33, 34, 37, 22, 24; 

FILL RESLENGTHC*] WITH 
0, 9, 9, 4, 6, 

7, 8, 4, 9, 15, 

3, 7, 5, 11, 8, 

8, 4, 7, 7, 8, 
5, 5, 7, 5, 4, 

4, 6, 6, 4, 10, 5* 

5, 4, 5, 0, 9* 0, 5* 7* 6, 7. . 
#8 

i 

FILL W0P[*3 WITH" 
"LITC"," "* 



03410000 T 
03411000 T 

START OF SEGMENT ** 

03411100 T 

104 IS 15 LONG, 

03412666 f 

03413000 T 

START OF SEGMENT ** 
03414606 f 
03415000 T 
03416000 T 
34 17000 T 
03418000 T 
014_L61_00_J 



0082 

0082 

0082 

0082 

0082 

0082 

0082 

0082 

6682 

0082 

0082 

0082 

0082 

0082 

0082 

0082 
NEXT SEG 

0082 

0082 
******** 

NEXT SEG 

0084 

0084 
******** 

0085 
NEXT SEG 
0085 
0086 

******** 

0067 
0087 
0087 
0007 
0087 



105 IS 



03418101 T 
03418990 T 
42 LONG, 



0067 
0067 
NEXT SEG 



100 

97 
101 

97 
1P2. 



97 



103 
97 



104 
97 

105 



97 



03419000 T 0087 
03420000 T 0088 



m 



10, 

19, 

38, 

65, 

72, 

128, 

134, 

278* 

515, 

550* 

806, 



"DfL 

"LNG 

"SfC 

"M L 2 
"M«5 

"6 iv 
"chS 

m SBC 

"M0~S 
"BFW 

"gfw 



»0PDC","DESC", 
", 11, "NOP "» 

", 2t,"GEQ ", 
", 39,"RTN ", 

", 67,"LND "» 



START 



12*"XRT 
22, "BBC 
46,"C0C 
68,"ST0 



16,"A0D n » 



24,"jNX " 
48#*SUB " 
69,"NEQ " 



17,"A02 % l8,"PRL ", 
35,"LQR ", 37, M GTR "* 



49,"SB2 w # 
70,"S5N ", 



64, W MUL 
71,"XIT 



1 



",129,"DV2 ", 130, "COM 
",167,"RTS ", 168, "CDC 
",_280,"5SF ",294#"GFC 
",5 32»"~ISD~ "*S33#"CE<B 
",58l,"EQL ", 
",896, M RDV ", 
023,1023,1023 



",l32,"SNb ",133, H XCH "* 

",260, "LOO ",26l,"DUP "# 

">384»"I0V ",453>"FTF "* 

",54 8 '"I SM * # 5 497 H t S? " > 

582, "SSP ",584,"ECM ",709,"CTC M #79Q,"GBW "# 

965#"CTF % 

, 1023, 1023, 1023* i023# 1023,1623, 1023,1023, i 2 3 ji 



",131»"LQV 
",197, "FTC 
%322#"ZP1 
W ,534,* , BBW 



FILL TIPE[*3 WITH 1 



81- S l)»-T9,-Il 



fill 



8C0CT 
5J0CT 
-1,5,- 

PERIODWORDC*] WITH 
"AlSE ", "TRUE ", 



-6»-tf — 

00000 
00000 

100,-16,8 

'- J / 

"OR ", 



, OCT 3000000 

t 



00,-2t,«2,-3,"4* 



#?o. 



-<■— --^s:-- 



106 

js*a#t: 



> , OCT lOOOOOOpO, -5 , » 1 3*/4 , -oi '"7, - 19, - 1 1 ,„ 
> , - 8 * 3 ( CT 300 00 000) , *9 , - 1 , * 1~2 , * f 3 » * 1 4 ? » 



C0CT3000000 



00 ) , - i 7 , -6 , - 1 a , - 19, "20 , -2 1 j 

9 % j: -. J II 



"AND ", "NOT 



"LT 



"LE 



"EQ 



•GT 



'GE 



"; 



ACCUMtOl * EXACCUMtO] «• "i ", 

INCLUDE !■ "NCLUDE" & "I"[6 I 42 « 6 3; 

iNSERtDfPfH I* •i'J 

FILL TENt*) WITH X POWERS OF TEN TO PRT 22 

OCT 1141000000000000, OCT 1131200000000000, 



OCTi 111750000000000, 
OCTj 06 3641100000000, 
C T '{0 3 7 34654500 00 "",' 
0CT0011643245121000, 
OCT0043432772446150, 
C T 76T"40 53 51T« 47 1/ 
0CT013154327H53342, 
0CTol6323604l57l663, 
iC TO 2 1« 35456 17 ii77 2 , 
0CTO25 14 47626234640, 
QCT0303051561442 215, 
D C TO 1 3~S0 U 3T1 6I5T4 4 , 
DCT0371360241772234, 
0CTO422675274 304701, 

0CT05H274514320241, 
0CT054253035116667J, 
OCT'6 5T5 i 60 607 4501:2 37 
0CTO631214417455344, 
OCT0662372362344605, 

0CT07 1467 115 14 1663 1# 
0CTO75U37556607071, 

OCTOOOOOOOOOOOOOOOO* 

ocTnobobooobooooOoo* 

OCTOOOOOOOOOOOOOOOO, 



OCT 1102342000000000, 
OCT1054611320000000, 
Cft i i 12 40276200 00 » 
0CT0022214U63452OO, 
DCT005434157U57602, 
OCT 1 i 105-30710 6XT22 1 , 
0cT0l42074l«7a06233, 
OCT0174105452130240, 
Cf 02 31004771627437", 
0CT026l76l5737040i0, 
0CT03i3664li5752660, 
ffC T0T4T4T5^Ta2065I5^ 
0CT0401654312370703, 

0CTO433454553366061, 
acTO*"67003245T305207 
0CT052155363"'404312# 
0CT055 325644 3424452, 
0CT0"6W4 1475 1524 157"; 
0CT06«1457523370635, 
0CT0673071057035747, 
OCT 7 2 6 4 740 37 2 2 377 , 
0CT076l3675i23507j0, 
OCTOOOOOOOOOOOOOOOO, 
C To "do 00 00 00 00 000, 
OCTOOOOOOOOOOOOOOOO, 



"NE 



107 

START 
108 



0CT1121440000000000J 

0CT10730324000000O0 
OCT1045753604000000 
QCTO 00 1 351 15 ¥6 4~0 00 
0CT0032657142036440 
0CT0065432127413542 
OCTOT 2X26570727-9:2-65 

0CT0152513201307702 
0CT0205126764556310 
CT024 120617017514 6~ 
0CT0272356132665012 

0CT032464U41345435 
CTCTOlSTi 3 16646250^6 
0CT0412227375067064 
0CT0444367706263475 
07JTO5"0TO-6Tr4IT71T6T4 
QCT0532106607305374 
0CT0564132154331565 
CT06-2TOI2O 1 4-16-fIW 
0CT0651773450267004 
OCT0703707272645341 
bCT073746t304707«r77 
0CT0771665435043072 

OCTOOOOOOOOOOOOOOOO 
C To oouo 00 O'O'O 00 
OCTOOOOOOOOOOOOOOOO 



START 



OF SEGMENT * 
0342T000 f 
03422000 T 
03423000 T 
01424000 T 
03425000 T 
03426000 T 
03427600 f 
03428000 T 
3429 000 T 
3T3TJOTJXTf 
03431000 T 
03432000 T 
614 3T0W T 
IS 132 LONG, 
03433100 T 
o r Hqhf nT 

03433110 T 
03433120 T 
034 33130 t 

IS 64 LONG, 

03434000 T 

34 35666 T 

OF SEGMENT * 

03436000 T 

IS HTONG, 
03437000 T 
03437100 T 
034I71T0 f 
03438000 T 
03439000 T 
OF SEGMENT -* 
03440000 T 
03441000 T 
0144T0O0 f 
03443000 T 
03444000 T 
~03T|«5000~ T 
03446000 T 
03447000 T 
O3448OOO t 
03449000 T 
03450000 T 
0345100a T 
03452000 T 
03453000 T 
O1^5^J00 T 
03455000 T 
O3456OOO T 

'"'"" Tr2T4"57000~T 

03458000 T 

03459000 T 

"01460000 T 

03461000 t 

03462000 T 
05*61666 f 
03464000 T 



********* 106 
0089 
0089 
0089 
0089 
0089 
0089 

0089 
0089 
0089 
0OT9 
0089 
0089 
0089 
NEXT SEG 97 
0089 
*:** * _*■ " ■*■**.*-* ; .|.07- 

009j 
009i 
009 i 

NEXT SEG 97 

00 9| 

0091 
********* 108 

0092 
NEXT SEG 97 

0092 

0095 

00*6 

0097 

0098 
********* 109 

0099 
0099 
0099 
0099 
0099 
X>099 

0099 

0099 

0099 "" 

0099 

0099 

0OV9 

0099 

0099 

0TT99 

0099 

0099 

00?9 

0099 

0099 

0099 

0099 

0099 
0099 
0099 



«, *• 



aCToOOOOPOOOOOOQOOO* 
OCTOOOOOOOOOOOOOOOO* 

OCTOOOOOOOOOOOOOOOO* 
OCTnOOl OOOOOOOOOOOO* 
OCT0007 365000000000* 
OCTflOO 1666410000000* 
OCT0OOO4OO36 3500000* 
0CTnO043i6473365l6O* 
OCT0004463430126605* 
OCT0004070533151347* 
0CTO00224 16546 10575, 
OCT0002014055337051* 
0CTo003447«70573550* 
C TO 6 207 1 2 7 2 6 i»5 4 7 * 
0CT000767000 247073 3* 
0CTO0OH63305O63137* 
0CTOO02321127075177, 
OCT0007i50422l20072, 
OCT0004 144127 354 356, 
OCf 17 664 3 5 1 ~2 6 4 '5 66* 
FILL INLINEINTI*] WITH X 





X 




% 




X 




X 




X 




X 




% * * * * * * * * f I RSf FILL MOST 




34, 


— - 


"OOABS ••» 




"OOAIMAfi M * 




"OOAINT m . 




"OOAMAXO % 




"OOAMAXl w * 




"OOAMINO "* 




'♦OOAWlNi w * 




"OOAMOO "# 




H OOAN0 "> 




"OOCMPLx "» 




-OOCOMPl ** 




".QO.CMJ.Q ".* - - 




"00DA8S •'* 




"OOOBLE w * 




"OODIM '•* 




"OOOSIGN *> 




"OOEOUIV "» 




"OOFLOAT- "# 




"OOIABS "* 




"OOIDIM "» 




"OOIOJNT "* 




"OOIFIX "* 




M 00INT "* 




"OOJSIGN w » 




"OOMAXO "* 




"00MAX1 M * 



octoooooooooooooooo* 
octoooooooooooooooo* 

octoooooooooooooooo* 

OCT 000 1720000000000* 

OCT0005262200000000, 

QCT0000244U2000000* 

OCT0000450046042000* 

0CTbb054O22i226 2320' 
0CT0007600336154346* 

0cT0005i0666 200 364l# 
QCT00027 1222^7527 34, 
0CT00O44 17070626663* 
0CT0006 36 14067 3_2502* 
OCTOO'd ^ 1650755 141700* 

0CT000764600 320 7120, 
OCT0007420166277771, 
0CT0b030053547i4677* 
OCT0003002526544103* 
0CT0007i75l5524745l, 
OCf 00b 364 144 354 1723* 
FILLS MUST BE IN ASCENDING 

binary Search iN"'FUNctiON''' 

INLlNEINTUnriUJ ■ I ONC 

HAS 
INLINE INT 1 1 ] "". t2"l ioJilNDlX 

CORR E 
INLINElNTCl].tl2l363»NAME 
BE NUMBER OF I nTR! NSTCS ** 



OCTOOOOOOOOOOOOOOOO' 
C T 0000000 0006 * 

OCT0004000000000000* 
0CT0004 304000000000* 
OCT0004536640bbbbb6* 
OCT0000315134400000* 
0CT0006562057452_400* 

bcTbbo67b2654^ 37 bb4» 

0CT000 154042560 74 37* 
OCT00050 3 304 364046 %j 
OCT 000 1 4X4675745524 * 
OCT0007522706774440* 
QCT0005005571052122* 
OCT bbO 6 22 3 1 50 3T2 2 60 , 

OCT0005617404050743* 
QCT0001732422375777, 
0CTbbb56b665b 100057* 
OCT0001603254275130, 

OCT00070344t052j3_63» 
0CT00b46il7544723lb; 

ORDER FOR 

AND 00 IT INLINE, 

E CODE FOR INTRINSIC 

BEEN EMITTED INLINE. 
INTO 2 • Ntnra R OFT HE 
NTRY IN INT. 

OF INTRINSIC. 

*¥*"***'#*.*"* ****** 
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START 



03465000 
3466000 




0099 




0099 


03467000 




0099 


03468000 




0099 


03469000 




0099 


03470000 




0099 


03471000 




0099 


03472000 




0099 


03473000 




0099 


03474000 




0099 


OPTION 




0099 


03476000 




0099 


03477000 




0099 


63478000 




0099 


03479000 




0099 


O348OOOO 




0099 


3481000 




0099 


03482000 




0099 


03483000 




0099 


03484000 




og 9-9 


03484100 




0099 


IS 138 LONG* 


NEXT SEG 


03484120 


T 


oibo 


03484122 


T 


0100 


03484124 


T 


0100 


01 4 8 4 126 


T 


0100 


03484128 


T 


0100 


03484130 


T 


0100 


05484T40 


T 


Wb 


03484160 


T 


0100 


OF SEGMENT 


********** 


"0T4841W 


T 


OlOl 


03484200 


T 


0101 


03484220 


T 


OlOi 


03484224 


T 


io 1 


03464228 


T 


OlOl 


03464232 


T 


OlOi 


03484236 


T 


0101 


03484240 


T 


0101 


03484260 


1, 


0.101 


03484260 


T 


old 


03484300 


T 


OlOl 


03484320 


T_. 


_Pioi 


03484340 


T 


OlOl 


03484360 


T 


0101 


03484380 


T 


OlOl 


03484400 


T 


OlOl 


03464420 


T 


OlOl 


03484440 


1_ 


0101 


03464460 


T 


OlOl 


03484480 


T 


0101 


03484500 


T 


OlOl 


03484520 


T 


0101 


03484540 


T 


OlOi 


03464560 


T 


PIPI 


03484564 


f 


OlOl 


03484568 


T 


OlOl 



97 



110 



"00MIN0 
"OOMINl 

"OOMOD 

"OOOR 

"OOREAL 
"OOSIGN 

"OOSNGL 
"OOTIMC 

I 



COMMENT 



FILL INT C 
THESE NAMES 
ASCENDING 
THE SECOND 

.tun » o 



.C2U3 « 
• C6* 33 » 
.[9»33 » 
.C12163 = 



. C24J63 * 
. t 30163 * 
.£361123 « 
THE FIELDS 



*3 WITH 

(1-ST WORD 
ORDER FOR B 
WORD HAS T 
IF THE INT 
LOCATION* 
WRAPUP, S 
INTSEEN « 1 
INTCLASS a 
INTPARMCLAS 
tlNTINLlNE 

. intprt * f 

•INTPARMS » 
•INTNUM « 
.13133 AND 



110 



OF EACH TWO-WORD ENTRY) MUST BE IN 
INARY LOOKUPS. 
HE FOLLOWING FORMATl 

RINSIC DOES NOT HAVE A PERMANENT PRT 
OTHERWISE « 1. MAY BE RESET BY 
EE .'[ 1816 3 BELOW, 

iff intrinsics function has been seen, 
class of the intrinsic 
s * class of parameters. 
■ index for doitinline if *o» otherwise 

do it via intrinsic call, 
ixed prt location, see ,tl'i'"13 above. 

number of parameters required by the int, 
intrinsics number, 

, 1 18*63 are so far unused. 



** 
** 



x 

X******* 
******** 

X******* 

X 

"ABS n 

"AIMAG " 

"AINT « 

"ALGAMA" 

"AL0G10" 

"ALOG " 

"AMAXO « 

"AMAX1 " 

"AMINO 

"AMIN1 

M AMOO 

"ANQ 

M ARC OS 

"ARSIN 

"ATAN2 

"ATAN 

"CABS 

"CCOS 

"CEXP 

"CLOG 

"CMPLX 

H COMPL "* 

"CONCAT"* 



**************************************** ***'*"** **"* ** * * ******* * * *'* ' 



*************************************************** 

IF YOU ABD AN INTRINSIC* BE SURE TO CHANGE NUMlNTMl ******* 

AT SEQUENCE NUMBER ,j)Q [1 552 11 ,..,.., THANK YOU. ******* 

.a.*.^*.*.*.*.*. i ^ ., iii^r rrr^ j|^ t j t # ^ j, **"***'*'*"***¥*¥**** ******'**'****'*" 



* * * * *'* * * * *"*"** **"*"** **"**"** 

' OCT Op 3 30 J_00000 1 , OOC > 7* 

* 0CT0036020000010074* 

* OCTOO 3 30 30 000 10054* 

* C TO 6 3 1"3 0000 001 0127* 

* OCT0033000000010103* 

* QCT2 0330 00035010017* 

* OCTOO 318560000000 31* 

* OCT0033250000000031* 
OCT 00 .11150 00 0000012* 
0Ct0d3 32500000000 32* 
OC TOO 3 304000002006 3* 
OCIO OJ 30 50000020 130 * 
OCT66330000000101177 
OCT2033000032010116, 
OC.T 20 3 300004 4020 114, 
0CT2b3 30000T70 10016* 
0CT2036000045010053* 
0CT0066000000010JIJ,0* 

bcToo^o^e^oooroioO* 

OCT00660000000 10102* 
OCT0063060000020075* 
C IT 3 3 7 OU 0^501 132 » 
OCT0033000000050140* 



START 



•'* 



"* 
♦♦, 

h, 

"* 
♦»* 



03484572 T 
03484576 T 


OlOl 
01 Of 


03484580 T 


OlOl 


03484600 T 


OlOl 


03484620 T 


0101 


03484640 T 


OlOl 


03484660 T 


OlOl 


J4B"48"80 T 


OIOV 


03484990 T 


OlOl 


IS 36 LONG, 


NEXT SEG 


03465WO T 


oioi 


03486000 T 


0101 


03486010 T 


0101 


03486020 T 


OTOI 


03486030 T 


OlOl 


03486040 T 


0101 


"03486050 T 


oioi 


03486055 T 


oioi 


03486060 T 


0101 


03486070 T 


oioi 


03486080 T 


0101 


03486090 T 


oioi 


03486100 T 


oioi 


03486U0 T 


0101 


03486120 T 


OlOl 


03486150 T 


oioi 


03486140 T 


0101 


03486144 T 


OlOl 


03481145 T 


OlOl 


03486146 T 


0101 


03486147 T 


0101 


034 8 61 48 t 


0101 


03486149 T 


OlOl 


03487000 T 


0101 


OF SEGMENT ********** 


03488000 T 


0103 


03489000 T 


0103 


03490000 T 


0103 


03491000 T 


0103 


03492000 T 


0103 


03493000 T 


0103 


03494000 T 


0103 


03495000 T 


0103 


03496000 f 


0T03 


03497000 T 


0103 


03498000 T 


0103 


03499000 f 


"010 3 


03500000 T 


0103 


03501000 T 


0103 


03501500 T 


-OTO3- " 


03502000 T 


0103 


03503000 T 


0103 


0I50400TJ f 


OIOI 


03505000 T 


0103 


03506000 T 


0103 


"0T3TOTOOO T 


0103 


03508000 T 


0103 



97 



tii 












"CONJG 'V 
"COSH », 

"COS 

"COTAN 

-CSIN 

"CSQRT 

"DABS 

"DATAN2"* 

"DATAN 

"DBLE 

"DCOS 

"DEXP 

"DIM 

"DLOGlO", 

"DLOG »'* 

"DMAX1 "# 

H DMIN1 », 

"DMOD 

"DSIGN 

"DSIN 

"OSQRT 

"EQUIV 

"ERF 

"EXP 

"FLOAT 

"GAMMA 

"IABS 

M IDIM 

"IOINT 

"IFIX 

"INT 

"ISIGN 

".ERR. 

".FBINB»# 

".FINAM", 

".FONAMh, 

".FREFR"* 
",FREWR"# 
".FTINT", 

"•FTNIN"* 

".FTNOU", 

".FTOUT"# 

".LABEL"* 

".MATH »* 

",MEMHR"# 

".XTOI 

"MAXO 

"MAX1 

"Ml NO 
"MINI 

"MOO 

"OR 

"REAL 

"SIGN 

"SINH 

"SIN 

"SNGL 






."» 
"*. 

" » .. 



0CT00661100O0010076 
0CTO033OO00OOO10121 

OCT0033000000010015 
OCT0033000000010112 
OCT00660000000 10106 
OCT0066000600010124 
0CT005501 00000 J 0052 
OCT00550b0000020U5 
0CT2055000041010113 
OCT0053120000010062 
OCT0055006600010107 
OCT2055000047010077 

OCT0033100000020072 
OCT00550000000iOl04 

0CT2055000042O1O101 
0CT00550000O000O066 
OCT0055000000000067 
OCT20550000/»60 20065 
OCT0055130000020071 
0CT2055000043010105 
0CT2055000050010123 
0CT0033140000020133 
OCT0033000000010125 
OCT2033000033010020 
0CT0031150000010060 
0cT2033O000a00l0l26 

OCT0011010000010007 
0CT0011J00000020072 
OCT0015240900010057 
0CT0013030000010054 
QCT0013030Q00010054 
OcTOOl 1160000020070 

0CT2000000030000134 
OCT0000000000000160 
0CT0000000000000154 
0CT0000000000000155 
OCT0000000000000146 

OCT0000000000000153 
OCT0000000000000050 

OCT0000000000000156 

c t 000 6 00 bo 00 0157 

0CT0000000000000051 

ocTooooooqooopoo_oji 
c t 00 c io 00 bob bob b 5 5 

OCT0000000000000164 
OCTOOOOOOOOOOO 00056 
OCT 00 1 1 25"00~00000 1 35 
OC TOO 1 3250000000 1 35 
.OCT 0011250000000136 



OCT0013250000000136 
OCT0011170000020137 
QX.I00.ai2050j3 QG20JL.3 1 
OCT0036210000010073 
0CTOO33160000O2OO70 
MT0013000000010110 
OC f 20 330000 340 i 00 1 4 
OCT0035230000010061 



03509000 
03510000 

03511000 
03512000 
03513000 
03514000 
03515000 
35 i 16000 
03517000 
03518000 
03519000 
03520000 

03521000 
03522000 
03522500 
03523000 
03524000 
03525000 
03526000 
03527000 
03528000 
03529000 
03530000 
03531000 
03532000 
03533000 

03534000 
03535000 
03536000 
03537000 
03538000 
03539"000 
03540000 
03540500 
03541000 
03542000 
03543000 
3344000 
03545000 
03546000 
03547000 
03548000 
03549000 

3550000 
03550500 

_°_ 1.5 51 000 
03552000 
03553000 
03554000 
03555000 
03556000 

i>J33_7.&0& 
03558000 
03559000 
03560000 
03561000 
03562000 



T 
T 

T 
T 
t 
T 
T 
T 
T 
T 
T 
T 

T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 

T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
f 
T 
T 
f 
T 

_T_. 
T 
T 

i_ 
T 
T 

I 
T 

T 



0103 
0103 

0103 
0103 
01 03 
0103 
O1O3 
0103 
0103 
0103 
0103 
0103 

0103 
0103 

0103 
0103 
0103 
0103 
010 3 
0103 
0103 
O103 
0103 
0103 
0103 
0103 
0103 

0103 
0103 

0103 
0103 
0103 
0103 
0103 
0103 
0103 
0103 

0103 
0103 

0103 

0103 
0103 

oibs 

0103 

01Q3 
0103 
0103 

010 3 
0103 
0103 
.0103 
0103 
0103 
0103 
0103 
0103 



• 



"SQRT 


•'* 


W TANH 


"# 


"TAN 


•♦* 


"time 


"» 


01 





0CT2O33OOO031010013* 
OCT0033000000010122* 
OCT2033000036010H1* 
OCT0031220000010064* 



BLANKS*tNLJNEINTCMAX*03 I 

FOR SCN*1 STEP 1 UNTIL BLANKS DO 

BEGTN 

eqvtd*inlineintcscn]; *hile 

INLTNEINftSCN],lNTX*MAX+l ; 

end ; 

intid. Subclass * intype; 

REAL 10. SUBCLASS «• REAlTYPE; 

eqvid * w ,eqooo"; 

LISTID t» «.LI000«; 
BLANKS «. " "; 

ENDSE6T0S * TRUE) 

SCN «• 7j 

MAX «• RFALCNOT FALSE). [9139]; 

SUPERMAxC0M<.128x(MAXCOM + l) ) 

segptog «• false; xinhibit page 
end initialization; 



ni is 



INTCMAXVC9.VID 00 MAX*MAX*2 ; 



SKIP AFTER SUBROUTINES 



03563000 T 
03563010 T 
03563020 T 
03563030 T 
03563900 T 
169 LONG» 
03563910 T 
03563920 t 
03563930 T 
03563940 T 
03563950 t 
03563960 T 
03564000 T 
03565000 t 
03566000 T 
03567100 T 
03568000 T 
03569000 T 
03570000 T 
3571000 f 
03571100 T 
03571300 P 
03572000 T 
97 IS 135 LONG* 



0103 
010 3 

0103 

0103 

0103 

NEXT SEG 

0103 

0104 

0109 

0109 

0113 

0116 

0118 

0120 

0122 

0122 
0i g 3 

0124 
0126 
0126 

0126 
0130 
Oili 
NEXT SEG 



97 



alpha procedure needct, c)| value 
begin Integer ni real elbati 



t* c; alpha t» c; 



infc; 

the elbat word for the identifier 

occurrence of t then an info woro 



REAL XI 

label xit* check! 

alpha infa, infb, 
comment need returns 
if this is the first 
given then class c; 

ELBAt. CLASS * Cl 
XTA * t; 

IF C i LABELID THEN 
BFGIN 

IF N * SEARCH(T) a THEN N * ENTERCELBAT* 
IF ELBAT * 6ETCN). CLASS * UNKNOWN 

THEN PUT(N,GET(N>&CCfOCLASS]) 
ELSE IF ELBAT * C THEN FL0GC21)! 
GO TO XITI 
EnD! 

if n ♦ search(T) » o then 

BFGIN 

IF N 4. globalSearchct) * 
n «• globalentercelbat* t)l 
go to xiti 
end; 
getall(n,infa»infb,infc)i 

IF InFA. CLASS ■ DUMMY THEN BEGIN N 

IF BOOLEANCINFA .FORMAL) THEN GO 

IF INFA. CLASS t UNKNOWN THEN 



START 



T. 
IS 



BUILT AND 



T> ELSE 



THEN "GO TO CHECK;" 



♦ INFC.BASEI 
TO CHECK7 



GO TO CHECK END! 



03573000 


T 


0506 


03574000 


T 


0506 


OF SEGMENT 


******* 


3574100 


t 


0000 


03575000 


T 


0000 


03576000 


T 


0000 


035/7000 


T 


0000 


03578000 


T 


0000 


03579000 


T 


0000 


03580006 


._.... 


0066 


03581000 


T 


0001 


03582000 


T 


0002 


03583000 


T 


0003 


03584000 


T 


0003 


03585000 


T 


0007 


03586000 


T 


0009 


03587000 


T 


0013 


03588000 


T 


0013 


03589006 


t 


6016 


03590000 


T 


0016 


03591000 


T 


0018 


03592000 


T 


0018 


03593000 


T 


0020 


03594000 


T 


0022 


63595606 


f 


0022 


03596000 


T 


0022 


03596100 


T 


0024 


03597000 


T" 


0027 


03598000 


T 


0029 
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• 



BEGIN „ _„ 

IF N f GLOBALSEARCH(T) t THEN GO TO CHECK) 

E| BAT. SUBCLASS «• INFA , SUBCLASS; 

N «• GLOBALENTER(ELBAT# T > J 

GO TO XlTi 
ENO^ 

PUT(N# INFA & OUMMYtTOCLASS])! 
ELBAT. SUBCLASS «■ InFa .SUBCLASS; 

if x «• globalsearch(t) a then x «• globalenterc elbat* t)j 
putcn+2* infc & xCtobase]); n «• x; 

CHECK! 

INFA * getcn); 

IF ELBAT «• INFA .CLASS * UNKNOWN THEN 

BEGIN lNFOtN.lR#N.tCJ. CLASS ♦• CJ GO TO XIT END) 

IF ELBAT t C THEN 

IF ELBAT ■...EXT ID AND 

(c * subrio or c a funid) then 
inficn.ir»n.ic3. class ♦ c 
else if celbat»subrid or elbat* funid) and c ■ extid then 
else flogc2i>; 
xiti need * getspacecn); 
xta 4. name; % restore xta for diagnostic purposes 

END NEED) 



112 IS 



03599000 T 
03600000 T 
03601000 T 
03602000 T 
360 3000 t 
03604000 T 

03605000 T 
03606006 j 

03607000 T 
03607100 T 
03608600 f 
03609000 T 
03610000 T 
03611666 f 
03612000 T 
03613000 T 
63614006 T 
03615000 T 
03616000 T 
63617660 T 
03618000 T 
03618100 T 
03619000 T 
77 LONG, 



0030 
00 31 

0033 

0035 

0037 

0037 

0037 

6039 
0041 

0045 
0048 
0049 
0050 
0052 
0057 
005fl 
0059 
0061 
0064 
0069 

0071 
0072 
6673 
NEXT SEG 



integer procedure exprcbt; value b; boolean b* forward; 

procedure split(A); value a; real a; 

begin 

emitpaircjunk* isnj; 

EmItd'mo, dia); 

emitdc18* iso); 

EMlTDESCLlTfA); 

emitO(LOd); 
emitopdclitcjunk); 

EMlfPAlR(255,CHS) ; 

emito(lnd); 
End spltt; 



03620000 T 


0506 


03621000 T 


0506 


03622000 T 


0506 


03623000 T 


0506 


03624000 T 


0507 


03625000 T 


0508 


03626000 T 


0509 


03627000 T 


0509 


03628000 T 


0510 


03629000 T 


0511 


03630000 T 


0512 


0363J000 T 


0513 



boolean procedure su8scriptscl i nk*from ) ; value llnk*from; 

integer link* from; 

begin integer i~* nsuSs* bdlink; 



label construct»_xit; 
real sum* prod* bound'j 
real infa*infb,infc; 
real savens|g*saveadr ; 
integer indx; 
real infd; 
boolean tog* varf; 

REAL SAvIT; 
OEFINE SS m LSTT#; 



03632000 T 


0513 


03633000 T 


0513 


03634000 T 


0513 


START OF SEGMENT ********** 


03635000 T 


0000 


03636000 T 


0000 


03637000 T 


0000 


03637100 T 


0000 


03637200 T 


0000 


03637300 T 


0000 


03638000 T 


0000 


03639000 T 


0000 


03640000 T 


0000 
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IF OEBURTOG THEN FtAGROUTINEC SUBSC% "RlPTS %TRUE ) * 

SAVIT «■ ITI 

LINK «■ GETSPACECLINK); 
GETAU<LlNK,lNFA#INFB,lNFC); 

if infa. class / arrayio then 

bfgin xta * inFb; flog<35); go to kit end; 
nsubs *■ infc.nextRa; 

IF FROM a 4 THEN 

BEGIN IF NSUBS GTR SAVESUBS THEN SaVESUBS l« NSUBS; 

IF NSUBS STR NAMLISTC03 THEN NAMLISTCOJ I" NSUBS; 

namlistcnameind3,c1»8j «* nsubs; 

infd »* getcneeoc m ,subar m ,blockid>).addr; 

ENn; 

BDLlNK *■ INFCiADlNFO-NSUBS+i; 

varf * infc < o; 

FOR t * 1 STEP 1 UNTIL NSUBS DO 
BEGIN 

it*it+i; savenseg+nseg; saveadr*adr ; 
if exprctrue) > realtype then FLAGC98)J 

IF AOR»SAVEADR THEN FLAGC36) ; 
IF VARF THEN 

IF EXPRESULTsNUMCLASS AND NSEG*SAVENSEG THEN 

BEGIN 

ADR* SAVE A'i> R '> 
EMITNUM(EXPVALUE-I)' 

end else emitpairc1* sub) 

else 

if expresult»numclass and nseg « savenseg and from neq 4 then 

r p r I n 

ADr*SaVEADRJ IF 5STTT ]*EXPVaLUESO THEN FLAG(I5») ; 
END 
ELSE SStlTl «■ 09J 
IF FROM • 4 "THEN 

BEGIN IF VARF THEN BEGIN EMlTQ(DUP)J EMlTPAlRC 1 , ADO >; END* 
EMITLCINDX)J INDX *■ INDX+1J 
EMlTDESCLrTUNFOJI 

EMITOCIF VARF THEN STO ELSE STN); 
END; 
IF I < NSUBS THEN 

R(*r T M 

IF GLOBALNEXT * COMMA THEN 

BEGIN XT* «■ INFB; FLQGC23) END; 

scan; 
End; 
end; 

IF GlOBALNEXT * RPAREN THEN BEGIN XTA «■ INFBI FL0G(24)J END 
ElS£ IF FROM < 2 THEN 

BEGIN SCANJi IF PREC > THEN" FROM ♦ it END; " 

sum + o; 
tog «. varf; 

IF VaRF THEN 

FOR T «• NSUBS-1 STEP -1 UNTIL 1 DO 
BEGIN 

IF BOUND «• EXTRaINFOCCBDLINK*BDLInK + 1),IR»BDLINK,IC] < THEN 
EMITOPDCLIT(BOUND) ELSE EM ITNUM (BOUND ) ; 



03641000 T 


0000 


03642000 T 


0000 


03643000 T 


0000 


03644000 T 


0002 


03645000 T 


0002 


03646000 T 


0004 


03647000 T 


0005 


O364BOO0 T 


0006 


03649000 T 


0012 


03649100 T 


0013 


03649201) T 


0014 


03649230 T 


0016 


03649230 T 


0019 


0365^T0D T 


0021 


03649400 T 


0024 


03650000 T 


0024 


03651000 ""f 


0026 


03652000 T 


0027 


03653000 T 


0030 


03654000 ""t 


0030 


03655000 T 


0032 


03655500 T 


0035 


03656000 T 


0037 


03657000 T 


0037 


03658000 T 


0039 


3659000 T 


0040 


03660000 T 


0041 


03661000 T 


0042 


OI6Y2000T 


W4"3' 


03663000 T 


0043 


03664000 T 


0047 


O3664T00T 


0047 


03664200 T 


0051 


03665000 T 


0051 


03665010 T 


0053 


03665100 T 


0053 


03665200 T 


0056 


"03665100 T 


0058 


03665400 T 


0059 


03665500 T 


0061 


03666000 T 


0061 


03667000 T 


0062 


03666000 T 


0063 


03669009 f 


0065 


03670000 T 


0065 


03671000 T 


0066 


" 016T2W0 t 


006~6 


03673000 T 


0068 


03673100 T 


0071 


03673200 T 


0073 


03674000 T 


0076 


03675000 T 


0077 


01678000 f 


0078 


03677000 T 


0078 


03678000 T 


0083 


03679000 T 


0083 


03680000 T 


0087 



EMITO(MUL); 
EMITO(ADD); 
END 
ELSE 

FOR T * NSUBS STEP -1 UNTIL 1 DO 
BEGIN 

IF I * 1 THEN BOUNO * 1 ELSE 

BOUND * EXTRAINF0t(BDLlNK«-BDLINK4.1).lR,BDLINK,ICJJ 
IF T ♦ SStSAVlT+U < 99 THEN 
BEGIN 

SUM * (SUM+T-l)xBOUND; 

IF TOG THEN PROD «■ PRODxBOUnD; 

END 
ELSE 
BFGIN 

IF TOG THEN BEGIN EMITNUMC PROD ) t EMITO(MUL)' EMITO(AOD) END 

ELSE TOG * TRUE; 

PROB «• BOUND; 

SUM *• (SUM-l)xBOUND; 

End; 
end; 
IF VARF then t * ?9; 

IF InFA. SUBCLASS J DOUBTYPE THEN 
BEGIN 

IF TOG THEN 

BfGIN 

IF T < 99 THEN EMITNUMC 2xPrOD ) ELSE EMITLC2); 

E.MJTQ(MU.L)I 

end; 

Si|M «- SUMX2; 

END FLSE 

IF T ""< 99 AND TOG THEN BEGIN EMITNUMC PROD )t EMITQCMUL) END; 

IF BoOLEANCINFA.CE) then 

SuM * SUM + INFC.BASE ELSE 

IF BOdLEANdNf a.formal) THEN 

begin emitqpdclitcinfa.ador-i); 

if tog then emitocaod) else tog •• true; 

' end; 

IF BnOLEANClNFAtTWOD) AND FROM >0 THEN 

BEGIN 

IF SUM * THEN 

IF TOG THEN ELSE 

BEGIN „ _.._ _ _ 

EMITL(O); 

EMITDESCLITCINFA.ADDR); 
EMITOC.LOD); 
EMITLCO); 
GO TO CONSTRUCT; 
END _ _ _ - 

else 

if tog then 

BEGIN _ 

EMITNUMCABSCSUM))! 

IF SUM < THEN EMITO(SUB) ELSE EMITOCAOO); 
ENO ELSE 
BEGIN 

EMITLCSUM.[33*7]>; 



03681000 


T 


0090 


03682000 


T 


0090 


03683000 


T 


0091 


03684000 


T 


0091 


03683000 


T 


0092 


03686000 


T 


0094 


03687000 


T 


0094 


03688000 


T 


0096 


03689000 


T 


0100 


03690000 


T 


0102 


03691001) 


T 


0102 


03692000 


T 


0105 


03693000 


T 


0107 


3W40W 


T" 


01107 


03695000 


T 


0107 


03696000 


T 


0109 


03697000 


T 


0112 


03698000 


T 


6113 


03699000 


T 


01U 


03700000 


T 


0115 


03701000 


T 


0115 


03702000 


T 


0118 


03703600 


T 


0119 


03704000 


T 


0120 


03705000 


T 


0121 


03706000 


T 


0121 


03707000 


T 


0122 


03708000 


T 


0126 


03769060 


f 


6127 


03710000 


T 


0127 


03711000 


T 


0126 


03712066 


f 


0128 


03713000 


T 


0132 


03714000 


T 


0133 


63715666 


T 


61 55 


03716006 


T 


6137 


03717000 


T 


0140 


3718606 


_.. 


Qi 4 2 


03719000 


T 


0142 


03720000 


T 


0144 


"63721666 


T 


0145 


3722006 


T 


0145 


03723600 


T 


0147 


03724000 


T 


0147 


03725000 


T 


0148 


03726000 


T 


0149 


03727606 


T 


0150 


63728000 


T 


0151 


03729000 


1 


0151 


637360OO 


T 


0151 


03731000 


T 


0151 


03732000 


J 


..Q112 


63733666 


T 


0152 


03734000 


T 


0153 


03735000 


T 


0157 


03736000 


f 


0157 


03737000 


T 


0157 



tt 



EMITDESCIHCINFA.AODR); 
EMITOCLOO); 
EMiTL(SUM,[«Oi83); 
GO TO construct; 
end; 

SpLIT(INFA.AODR); 

CONSTRUCT! 

IF BOOLEAN(FROM) THEN 

BFGlN 

IF INFA. SUBCLASS > DOUBTYPE THEN 

BEGIN 

EMITOCCDC); 

EMITO(DUP); 
EMITPAIRCl. XCH)J 

emitocinx); 
emitoclod); 
emitocxch); 
emitocuoo); 
end else emitoccooj 
end else emitoccoo; 

END FLSE 
BEGIN 

IF SUM * THEN IF NOT TOG THEN EMITL<0) 
ELSE 
BEGIN 
IF 



ELSE 



TOG THEN 
BEGIN 

EMITNUM(ABS(SUM))J 

IF SUM '■"< THEN EMITO(SUB) ELSE EMIT0(AD0)1 
END 
El SE EMITNUM(SUM); 

end; 

IF FROM > o then 

IF BOOLEAN (FROM) THEN 

IF INFA. SUBCLASS 2 DOUBTYPE THEN 
BEGIN 

emitdesclitcinfa.addr); 
emitoTduP); 
emitpair<1# xch); 

EMITO(INX); 
EMltO(L06)> 

emitocxcw); 
emitocloo)) 
end else"emitv(link) else "" 
begin descreq * true; emitn(llnk); descreq * false end; 
end; 

"x'lfi " " " ' ' " " " " " 

it ♦ savit; 

subscripts ♦ boolean(from); 

I F DEB UO T G " f H E N ~F~L ASWQ U Tl N El " 
END SUBSCRIPTS; 



SI) FS C * 7 '<* RTF T3 *7F A L 3 E 7 ~T 





03738000 


T 0158 




03739000 


r 0160 




03700000 


r 0160 




03741000 ' 


r 0162 




03742000 


r 0162 




03743000 ' 


r 0162 




03744000 ' 


r 0163 




03745006 ' 


r 0164 




03746000 ' 


r 0164 




03747000 ' 


r 0164 




03748000 ' 


r 0166 




03749000 i 


r 0166 




03750000 i 


r 0167 




03751000 "1 


r" 0168 




03752000 1 


r 0169 




03753000 1 


r 0169 




03754000 1 


r oi7o 




03755000 1 


r oi7i 




03756000 1 


r 0172 




03757000 1 


r 0173 




03758000 1 


r 0174 




03759000 1 


r 0174 




03760000 1 


• 0175 




03761000 1 


r 0178 




03762000 1 


' 0178 




03763000 1 


r 0179 




03764000 1 


r 0179 




03765000 1 


r 0179 




03766W0 1 


.... 01W 




03767000 1 


' 0184 




03768000 1 


r 0184 




03769000 1 


r 0185 




03770000 1 


' 0185 




03771000 l 


' 0186 




03772000 1 


' 0186 




03773000 1 


' 0188 




03774000 1 


' 0189 




'03775000 1 


f 01 90 




03776000 1 


' 0191 




03777000 l 


r 0192 




03778000 1 


' 0T9? 




03779000 1 


' 0193 




03780000 1 


• 0194 




0T7BTW0 1 


' TJT93 




03782000 1 


■ 0196 




03783000 1 


0199 




' " 03784000 1 


• OiW 




03785000 1 


' 0199 




03785100 1 


' 0199 




03786000 1 


02T56 "'""" 




03787000 1 


' 0202 




113 IS 211 LONG* 


NEXT 8EG 



BOOLEAN PROCEDURE BOUNDS(L INK); VALUE LINK; REAL LINK ; 



03788000 T 0513 



» 



BEGIN 

COMMENT 



IF 



CALLED TO PROCESS ARRAY BOUNDS; 
BOOLEAN VARF* SINGLETOG; 



START 



DEFINE FNEW « LINK#; 
REAL T# NSUBS* INFA* 
LABpL loop; 



INFB* INFC* FIRSTSS; 



DEBUGTOG THEN FLAGR 
GET ALL< FNEw, INF A, 
FIRSTSS «• NEXTSS; 
IF LJNK .< O.TH.EN BE 
LOOP! 
IF NEXT * IO THEN 

BEGIN 

T * GETCFNEXT 
IF T, CLASS * 
IF T. SUBCLASS 

T * -t.addr; 
varf ♦• true; 

END ELSE 

IF NEXT ■ NUM THEN 

BEGIN 

IF NUMTYPE^IN 
IF T*FNEXT«Q 
IF NOT VARF T 
LENGTH * 

end else fl0g(122) 
extrainfocnextss.i 

NEXTSS * NEXTSS-ll 

NSUfiS «■ NSUBS + i; 

SCAN* 

IF NEXT ' COMMA TH 

IF NEXT / RPAREN T 

XTA * infb; 

IF TNFA. CLASS * AR 

INFA. CLASS ♦ ARRAY 

IF VaRF THEN 

BEGIN 

TF NOT BOOLEANC 

if nsubs > i OR 
begin bumplOc 

LENGTH *"E 

END FLSE 

IF NOT SINGLETOG A 
BEGIN LENGTH 

IF | ENGTH > 3276? 

INFC * LfNGTH__t NS 
IF VaRF THEN INFC «■ 

PUT(FNEW# INFA)* P 

scan.; 

IF DEBUGTOG THEN FLAGR 

END bounds; 



.."'TRUE ) ; ... 

GIN SINGLETOG ♦ TRUE; LINK ♦ ABSC.L.INK) .END;. 



outinec" bou%"nds 
infb, info; 



* getspacE(Fnext)); 

varid or not booleanct .formal ) then flagc92) else 
> realtype then flagc93); 



TYPE THEN FLAG(113) ; 
THEN FLAGC122) ; 

hen if nsubs - then length * fnext else 
lengthxfnext; 
; 

R*NEXTSS.IC3 ♦ T; 



EN BEGIN SCAN; GO TO LOOP END; 
HEN FL0GC94); 



rayio then flagc95); 
id; 



INFA .FORMAL ) THEN FLAG C 96) "I" 

INFA .SUBCLASS > OOUBTYPE THEN 

als;length*j,ocals ♦ 1536;B0UNDS*TRUE eno else 

XTRAlNFdr FIRSTSS . iR/FIRSf SS, IC3) 

NO INFA. SUBCLASS > LOGTYPE_ THEN 
* 2 x LENGTRT BOUNDS* * "TRUE" "ENBT 

then flagc99); 

ubsctonextra3 & f jrstss [toad info] ; 
-infc; 

UTCFNEW+2* INFC); 



duflNE< w BQU"f"NOS W *FALSE) I 
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03789000 1 


' 0.5 1 3 
' 0513 




03790000 " 




03791000 F 


» 0513 




OF SEGMENT ********** 




63792666 1 


r 0000 




03793000 1 


' 0000 




03794000 1 


r 00013 




03795000 1 


- 6660 




03796000 1 


r 0000 




03797000 1 


r 0000 




03798000 1 


' boo a 




03799000 1 


' 0003 




03799500 C 


! 0004 




03800000 1 


' 0007 




03801000 1 


P 0008 




0380 2005 .1 


r 0008 




03802100 1 


r 0009 




03803000 1 


• ooit 




03804000 1 


r 0015 




63865666 1 


r 6620 




03806000 1 


r 0022 




03807000 1 


r 0022 




03808000 1 


r 0022 




03809000 1 


r 0024 




03810000 1 


r 0024 




03810010 1 


r 0026 




03812000 1 


r 0029 




03813000 1 


r 0032 




03814000 1 


r 0033 




03815000 1 


r 0035 




03816000 1 


r 0038 




03817000 1 


r 00 39 




03818000 1 


r 0040 




03819000 1 


r 0041 




03820006 1 


r 0043 




03821000 1 


r 0045 




03822000 1 


r 0046 




03823000 1 


r 0048 




03827000 1 


r ooso 




0382JOQO 1 


r 0050 




03829606 1 


r 0051 




03830000 1 


r 0053 




03831000 ' 


r 0055 




03832000 1 


r 0061 




03833000 1 


r 0067 




03834000 F 


» 0067 




esasisw < 


I 15069 




03835000 1 


r 007? 




03836000 1 


r 0074 




03837000 1 


r 0076 




03838000 1 


r 0078 




03839000 ' 


r 0081 




03840000 1 


r 0081 




03841000 1 


r 0083 




IS. _ 91 LONGj 


1 NEXT_SfG. 
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HI 



PROCEDURE 
BEGIN 



paRametersclink); value link; real link; 



LABEL LOOPi 

REAL NPARMS, EX# INFC* PTYPE; 
ALPHA EXPMAMe; 
BOOLFAN CHECK* INTFID; 
BOOLEAN NOTZEROP; 
REAL SAVlf) 

DEFINE PARMTYPE » LSTT#; 
SAVIT «• IT * IT + D 
IF DEBUGTOG THEN F (TAG' ROUTINE* " PARAM M , rt EtERS %TRUE ) I 
INFC «■ getclink+2); 
if check * booleanunfc.cih] j then 

BEGIN 

Ey «■ INFC.ADInFq; 

NnTZEROP ♦ INFC.NEXTRA * Ot 

ImTFID ♦ INFC.iJSLpn n'if 

end; L//UfC 

LOOP? 
BEGIN SCAN; 

EyPNAME * NAME; 

IF GLOBALNEXT * AND NAME * M $ " THEN 
BEGIN EXPftESuLT i LABELlo; SCAN*" 

IF GLOBALNEXT / NUM THEN FLAG(44); 
EMITLABELDESC(NAME); 

ptype""*"9T" " " " 

scan; 

END_ 
E|. SE PTYPE " ♦ EXPRrCHECk AND ExfRAlNFOt EX. rR^EX.TCT.'CLASS 

* EXPCLASS AND INTFID); 
IF EXPRESULT » NUMCLASS THEN 
IF PTYPE * SfRINGTYPT'THEN 
BEGIN 

ADR ♦ ADR - t; 

PTYPE ♦ INT YPE; 

expresult «■ subsvar; 
if stringsize * 1 and 

(t «• sxtrainfocex.ir*ex.lc], class » varid qr 

t * expclass) then 

BEGIN 

EXPRESULT" ♦"EXPCLASS; 

EM I TNUMC STRING ARRAY [0 3); 
END ELSE 
BEGIN 

expresult*arrayio ; 

emitpaircprgdescbldrc1#0#0#nxavil*nxavil+1)* lod); 

emitl(O); 

writedatacstringsize' nxavil* stringarray )i 
end; 
END EISE ExTRrSOLT «■ EXPCLASS; 

parmtypecit] * « expresultct0class3 4 ptypect0subcl3 ; 
xta ♦ expname; 

IF TSSEOITOG THEN IF (EXPRESULT-FUNID OR EXPRESULTiSUBRID 
EyPRESULT«EXTID) AND NOT DCINPUT THEN T5SED(XTA,2) ; 



START 



OR 



03842000 


T 0513 


03**3000 


T 0513 - 


03844000 


T 0513 


03845000 


T 0513 


03F4W00 


T 0513 


OF SEGMENT 


********** 


03847000 


T 0000 


03848000 


f 6000 


03849000 


T 0000 


03850000 


r oooo 


0385iWo ■ 


r oooo 


03852000 ' 


r oooo 


03853000 


r oooo 


03854000 ' 


r tjoot 


03855000 • 


r 0003 


03856000 ' 


r 0005 


038 5 7000 . 


f 0606 


03858000 1 


r 0007 


03859000 ' 


r 0008 


3859500 1 


r oo io < 


03860000 i 


r oou 


03861000 1 


r 0012 


03862600 1 


r 0012 


03863000 1 


r 0012 


03864000 1 


r 0013 


03866000 1 


r 0015 


03867000 1 


r ooi6 


03868000 i 


r ooia 


03869060 i 


r 60 19 


03870000 1 


r 0020 


03871000 1 


r 0020 


03872W0 1 


f ooxo 


03873000 1 


r 0027 


03874000 1 


r 0030 


03875000 1 


r' 0031 


03876000 1 


• 0032 


03876500 1 


r 0032 


03877061) 1 


'0034 


03878000 1 


" 0034 


03879000 1 


• 0035 


03880006 1 


• 0036 


03881000 1 


• 0040 


03882000 1 


' 0041 


03861666 1 


' 0041 


03884000 7 


0042 


03885000 1 


' 0043 


01886660 T 


oons 


03887000 7 


0044 


03888000 T 


0044 


03889000 7 


0048 


03890000 7 


0048 


03891000 7 


0050 


OTS^TOW T 


' 0050 


03893000 T 


0051 


03894000 T 


0055 


0389*656 T 


0055 


63894060 T 


0058 
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If dcinput then if expresult-funid or expresult*subrid 

Or EXPRESULT«EXTID THEN FlAG(l5l) ; 
IF CHECK THEN 

BEGIN 

IF T * EXTRAINF0CEX.IR*EX,IC3. CLASS t EXPRESUU THEN 

CASE T OF 

BEGIN 

EXTRAINFOCEX, IR#EX.IC3 * & ExPRESULTCTOCL ASS] 

4 PTYPE[TOSUBCUJ 
IF EXPRESULT i SUBSVAR THEN FLAGC66); 
IF EXPRESULT - SUBSVAR THEN 
IF NOT INTFIO THEN 

BEGIN EMlTOCeOO) 

IF PTYPE I DOUBTYPE THEN EMITLCO)* 
END ELSE 
ELSE 

IF EXPRESULT * EXPCLASS THEN 

BEGIN IF PTYPE * DOUBTYPE THEN EMITO(XCH); 

EXTRAlNFOtEX t IR#EX,IC3. CLASS * EXPCLASS 
END ELSE FLAGC67); 

; ; ; 

FLAG(68); 

IF EXPRESULT a EXTID THEN 

PUT(EXPLlNK»GET(EXPLlNK)&FUNlDtTOCLASS3) ELSE 

FLAGC69); 

; 

IF EXPRESULT ■ FUNID OR EXPRESULT ■ SUBRID THEN 

EXTRAlNFOCEX.IR#EXtIC] * EXpRESU|.T ELSE FlAGC7Q)J 

IF EXPRESULT • EXTID THEN 

PUTCEXPLlNK#GET(EXPLlNK)«SUBRIDtTOCLASS3) ELSE 
FLAGC7DJ 

; ; 

IF EXPRESULT * ARRAYID THEN EXTRAINFQC EX. IR»EX. IC 3 .CLASS 
*■ ARRAYID ELSE 
IF EXPRESULT "• VARID THEN 
BEGIN 

EXTRAlNFOtEX.IR#EX,IC3, CLASS ♦ 5BVEXPJ 
EMiTL(O) 

END ELSE 

IF EXPRESULT * EXPCLASS THEN 

BEGIN 

EXTRAINFQCEX.IR»EX,IC3. CLASS * 5BVEXPJ 
IF PTYpe i DOUBTYPE THEN EMITO(XCH) ELSE EMITLC03J 
END ELSE FLAGC725; 
IF EXPRESULT » SUBSVAR THEN 
IF NOT INTFID THEN 
BEGIN EMITQCCOC); 

IF PTYPE i DOUBTYPE THEN EMITL(O) 
END 
ELSE 
FLSE IF EXPRESULT ■ VARID THEN 

IF NOT INIF.ID THEN .._ . . ._ _. 

IF PTYPE * DOUBTYPE THEN EMITLCO) ELSE ELSE 
ELSE FLAG(67)j 
IF EXPRESULT » VARID THEN 

EMITL(O) ELSE 
IF EXPRESULT ■ EXPCLASS THEN 



03894100 


T 


0062 


03894200 


T 


0064 


03895000 


T 


0067 


03896000 


T 


0068 


03897000 


T 


0068 


03898000 


T 


0072 


03899000 


T 


0073 


03900666 


T 


0673 


03901000 


T 


0077 


03902000 


T 


0079 


639630b 


f 


ooei 


03903100 


T 


0082 


03903150 


T 


OO83 


63903266 


T 


6084 


03903400 


T 


0086 


03903500 


T 


0086 


O39O4066 


T 


0087 


03904100 


T 


0088 


03904200 


T 


0090 


3905666 


T 


009 3 


03906000 


T 


0096 


03907000 


T 


0096 


03908000 


T 


0098 


03909000 


T 


0098 


03910000 


T 


0101 


63911666 


T 


O163 


03912000 


T 


0103 


03913000 


T 


0105 


03914666 


T 


otio 


03915000 


T 


0111 


03916000 


T 


0114 


03917666 


f 


0116 


03918000 


T 


0116 


03919000 


T 


0119 


03920006 


t" 


0121 


03921000 


T 


0122 


03922000 


T 


0123 


03923000 


T 


0127 


03924000 


T 


0127 


03925000 


I 


0120 


03926006 


T 


0129 


03927000 


T 


0130 


03928000 


T 


0134 


03929000 


T 


0137 


03930000 


T 


0139 


03930100 


T 


0140 


03930200 


T 


0141 


03930300 


T 


0142 


03930400 


T 


0143 


03930500 


T 


0144 


03930600 


T 


0144 


03930650 


J 


146 


03930700 


T 


0147 


03930800 


T 


0150 


03931000 


T 


0152 


63932OOO 


T 


0153 


03933000 


T 


0154 









OR 



IF 



N 

I 

end; 

IF G 
NPAR 
IF G 
IF N 
BEGI 
INFC 
INFC 

PUT( 

8 



IF PTYPE > DOUBTYPE THEN EMITOCXCH) ELSE EMITL<0) 
ELSE IF EXPRESULT * SUBSVAR THEN FLAGC675; 
END OF CASE STATEMENT 
ELSE IF PTYPE i DOUBTYPE THEN 



IF EXPRESULT « VARID THEN EMITLCO) 
ELSE IF EXPRESULT « EXPCLASS AND NOT INTFID 
THEN EMITO(XCH); 
IF T ♦ EXTRAINFOCEX.IR* EX, IC 3 . SUBCLASS 
CT * INTYPE AND PTYPf «"REALTYPE AND 
GETCLINK), SEGNO m 0) THEN 

EXTRA I NFS) t EX. IR, EX. IC 3. SUBCLASS «• 
IF NOTCT * PTYPE OR T * REALTYPE AND 

FLAGC88); 
END OF CHECK 
ELSE IF PTYPE * DOUBTYPE THEN 

IF EXPRESULT * VARID THEN EMITL(O) 
ELSE IF EXPRESULT « EXPCLASS THEN EMITOCXCH}! 
OTZEROP THEN Ex * EX + IJ 
T * iT+i; 



PTYPE 
PTYPE 



ELSE 

* IN TYPE 



) THEN 



l,obalnext * comma then go to loop; 
ms * it - savit; 

lobalnext * rparen then fl0gc108); 
ot check then 

N 

* GETCLINK+2); 
""*■ -(INFC * NPARMStTdNE'xfftA] 



IF 



End 



e 
end 

ELSE 
IF T 
T 
T 
BEGI 
DEBU 

it ; 

PAR 



& NEXTEXTRAtTOAOlNFOn; 
LINK + 2MNFC); 

OR I * "SAV"lT'~5fE"P i UNTIL IT-I DO 
FGIN 

extrainfocnextextra.lr#nextextra, ic] ♦ parmtypeci3; 
nextextra ♦ nextextra+i; 
no; 



♦ GET(LINK+2).NEXTRA > AND T t NPARMS OR 
■0 AND INTFID AND NPARMS < 2 OR 

■ 6 AND "NOT INTFID THEN 
N XTA «■ GET(LlNK*l)i FLA6(28) END* 
6T0G THEN FLAGROUTINEC PARAM«,"ETERS **FALSE) i 

SAVfT-{; 
AMETERS; 



03934000 
0393500O 
03936000 
03936100 
START OF SEGMENT 
116 IS 17 LONG 
03936200 
03936300 
03936400 
03937000 
03938000 
03939000 
03940000 
03W1000 
03942000 
03943000 

03W3T00 
03943200 
O39433OO 
03944000 
03945000 
03946000 
3947600 
03948000 
03949000 
C395TJO00 
03951000 
03952000 
63^53"G06 
03954000 
03955000 
0I9560W 
03957000 
03958000 
039590(30 
03960000 
03961000 
O3962W0" 
03963000 
03964000 
63964M6 
03965000 
J3 3966000 
" 3967060 
03968000 
115 IS 239 LONG* 



0155 
0158 
0162 
0162 

********* 

NEXT SEG 
0164 
0166 
0167 
0169 
TJI73 

0175 
0177 
0182 
0185 
0187 
0187 
0188 
0190 
0193 
0195 
0196 
0196 
0197 
0199 
"0201 
0201 
0202 

orey 
0205 

0206 

"0201 

0212 
0212 
02" 13 
0217 
0217 
02T 7 
0217 
0221 
0224 
0226 
0229 
021T" 
0232 
NEXT SEG 



116 
115 



PROCEDURE STMTFUNREFCLINK); VALUE LINK; REAL LINK; 
BEGIN 

REALlV PARMITNK"* WWtiSi STTGl " 

IF DEBUGTOG THEN FLAGROUTINEC" STMTF"*"UNREF W #TRUE > * 
PlV«LiNk'''*"'6lET(LrN"Ki''r)'i"r36"ll2]| 
DO 



03969000 T 0513 
039 70000 T 0513 
~n5T97 1 OT" 05TT ~ 
START OF SEGMENT ********** 117 

03971010 T 0000 
6 3972606 t 0002 
03973000 T 0004 



♦ « 



BEGIN 

scan; 

IF A*EXPRCTRUE) t B*GET (PARMLINK ). SUBCLASS THEN 
IF A > REALTYPE OR B > REALTYPE THEN 
BEGIN XTA ♦ NNEW; FLAGC88) END; 
PARMLINK * PARMLINK-3J 
NPARMS * NPARMS+Jj 

end until next * comma; 

if next x rparen then fl0gc108); 

scan; 

getallclink* infa* xta# info; 

if nparms t infc.nextra then flagc28); 

seg «■ infa, Segno; 

branchlit(infc,basessegct0segn03#false); 

emitb(infa,addr « seg [tosegno] , false); 

adjust; 
if debugtog then flagroutinec " stmtf m # m unref w #false> t 
end stmtfunref; 



117 IS 



03974000 T 
03975000 T 
03976000 T 
03977000 p 
03978000 T 
03979000 T 
03980000 T 
0398 1660 T 
03982000 T 
03983000 T 
03984000 f 
03985000 T 
03986000 T 
398 7000 t 
03988000 T 
03989000 T 
03989010 T 
03990000 T 
37 LONG* 



0005 
6005 
0005 
0008 
0011 
0013 

OOU 
0015 
0016 
0018 
0019 
0020 
0023 
0024 
0027 

0029 
0030 

0032 
NEXT SEG 



BOOLEAN PROCEDURE DOItINLINEC LNK ); VALUE LNK; REAL LNK ; 
BEGIN 
REAL C»I*C1#C2#C3,C4#C5 ; 

LABFL HuNT*FOuND*XIT»AIMAG*AINT#CMPlX,LOOF>»DDTH1*SNGL ; 

DEFINE OPTYPE*LSTT#» EO«CHTTffff EP«EMITPAIRf E0L«EMIT0PDCLIT# J 

IF nEBUGTOG THEN FLAGROUTINEC w DOlTlN"# ,, LlNE *»TRUE) ; 

Cl*i; C2*INLINElNTt0i; C3«"GET(ABS(LNK) + 1) ; 

HUNT« " " " " 

IF f C*INLINEINTtI*(Cl+C2).t36ill]],iNAM)<C3 THEN Cl*I+l 
ELSr IF C>C3 THEN C2*IM ELSE GO FOUND ; 

if ci<c2 Then go HUNT ; 

IF TNLINEINTCC13.INAMX-C3 THEN 
BEGIN 
I F LNK<0 THEN DO I T I NL 1 NE«-B00lE AN ( LOOkFOR I NfR INS IC f-LNK T) i 

go xit ; 
end ; 

i*ci i ; 

FOUND* 

Cl«-fC*lNTtC2*(C4*lNLlNEINTtl3),INTX3).INTPARMCLASS ; 

IF' LNK<0 THEN " "' ~ "" " " ' " "~~ 

BEGIN 

I*-LNK;_ D0ITINLINE*B00LEANCLNK*NEED(C3#FUNID))_; 

IF (C2*GET<LNK+T)y<0" THTn GO" XI T "j 

PUT(LNK+2#-(C24(I«'C,INTPARMS)tT0NEXTRAHNEXTEXTRAtT0ADINF03)) ; 

FOR 1*1 STEP -ONTIi 1 DO _ 

BEGIN 

EXTRA INFO tNEXTEXTRA. I R#NEXTEXTRA,IC3*04EXPCL ASS CTOCLASS] 

&ClITOSyBCL.] ; 

NEXfEXtRA+NEXfEXTRA+i ; 

END t 

infOclnk,ir»lnk.ic3.subclass*c,intclass ; 
go xif ; 
end ; 



START 



03990010 

03990020 
03990030 

OF SEGMENT 
03990040 
03990045 
03990047 
03990050 
O399O0S0 
03990070 
03990080 
0T99W82 
03990084 
03990086 
03990088 
03990090 
399 0092 
03990094 

03990096 
03990098 

" 03990100 
03990102 
03990104 
0T99~0T05 
03990108 
0399011 2 



T 0513 
T 0513 
f" 0513 
********** 



118 



T 
T 

T 
T 
T 
T 
T 
t 
T 
T 
T 

T 
T 
f 
T 
T 
T 
T 
T 
f 
T 
T 



0000 

0000 
0000 

0002 
OOO5 
0006 
0010 

0016 
0017 
0019 
0019 
0022 
0023 
0023 
0023 
0024 

0027 
0028 
0029 
OW 
0034 
0039 



03990114 
03990116 
039901 17 
03990118 
03990120 
03990122 
03990124 
03990126 



0041 
0041 
0044 
0046 
0047 
0049 
0054 
0054 



MR 



IF 
IF 
LOOPI 
IF 

IF 



AIMAGS 
AINTJ 



CMPLXI 



IF BOOL 
STACKHE 

LNK*C.I 
IF c«>0 
XREF 
GLOB 
SC 
T»0 

IF 
fC4* 
BE 

i*i+ij 

IF GLOB 

IF T*C. 

BE 

OPTYPEC 

CASf (L 

BE 

EO 

EO 

EP 

EO 

EO 

EO 

EO 



DDT111* 



SNGL I 



EAN£LNK,C2li]) THEN 

ADtGET<(NEXTINFO*NEXTlNFO-3)+l) MOO SHX3*GETC NEXTINFO) .LINK 

ntinline; int[c23,intseen*ii doitinline*true ; 

THEN INLlNEINTCI3*-C4J 1*0 i 

THEN ' ENTERX(C3f04FUNI0 CTOCL ASS] 4CC 211613 lT)'J 
ALNEXT^LPAREN THEN BEGIN FL0GC106)* GO XlT END I 
ANJ C5*XTA i 
THEN 

LNK*10 THEN EMITL(O) ELSE IF LNK«21 THEN EMIT0ESCLITC2 ) ; 
E*PRCTRUE))*Cl AND CC1/REALTYPE OR C4*INTYPE) THEN 
6 IN' XTA*C5rTLA6(8B>; C2*-2 END ""J 

IF GL08ALNEXT«COMMA THEN GO LOOP I 
ALNEXTXRPAREN THEN BEGIN FL0G<108)J C2*-2 ENOJ SCAN ) 
INTPARMS THEN IF C.lNTPARMS/o OR I<2 THEN 
GIN XTA*C3j FLAG(28)J C2*-2 END J 
ITUC.INTCtASS; IF C2<0 THEN GO XlT ; 
NK-1) OF 
GlN 

(Ssp) ; 
coed ; 

(i#IOV) 
(RDV) ; 
CLNO) t 

(xch) ; 
clng) ; 



01» ABS# DABS* IABS. 

921 AIM AG, 

X *3t AINT, IFIX# INT, 

04« AMOD, 

05 < LOGICAL AND. 

061 CMPLX, 

07« LOGICAL COMPLIMENT (NEGATION), 



8EGIN % 01O« DIM, IDIM, 
EO(SUB); EO(DUP); EPCO#LESS) ; 
I F A D R > 4082 THE N B E G I N AD R * A D R + 1 J 
EPC2*BFC)J EOCDEDJ EMITLCO) ) 
END i 



SEGOVF ENO i 



BEGIN EOCXCH); EOCCHSH GO CMPLX END ) * 01H CONJG, 
; % 012* DBLE (SOME CODE ALREADY EMITTED ABOVE), 



BEGIN EOCXCH); 
EMITDDT(1#1»1) 

end ; 



EO(DEL) 

; 



i % 013J DSIGN, 



EO(LGV) ; X 0141 LOGICAL EQUIVALENCE, 

I X 0l5» FLOAT, 

GO D0T111 I X »16I ISIGN, SIGN. 

BEGJN EjkRDV);_ GO AINT END i X 0171 MOD. 

EO(LOR) t X P20 t LOGICAL OR. 

BEGIN EO(XCH); GO AIMAG END J X 0211 REAL. 

EP(1#K0M) ; X 0221 TIME. 



BEGIN X 0231 SNGL. 

EP(9#SND_)> _EOCXCH_)_J_ EMITOOH 47# 9# 1 )1 
EMTtDbT(9'9#38n E0L<9)JT EMIT0(ADD)7 IFTNK«20 
END * 



GO~W«£" T I 0241 10 INT 



EMITL(O) ; 

THEN" 



GO"AlNf j 



BEGIN X 0251 AMAXO,AMAXi, AMINO, AMINI,MAX0#MAX1, MlNQ, MINI , 

X "SURE" CT3BE "ALREADY EMITTED JB'GVEY " 

IF ADR>4068 THEN BEGIN ADR*ADR+1I SEGOVF ENO i 





03990127 


T 0054 




03990128 


T 0055 




03990130 


T 0060 




03990132 


T 0065 




~ 03 9 90 134 


T 0068 




03990136 


r 0072 




03990140 ' 


r 0075 




03990145 ; 


f CT0T6 




03990150 


r 0077 




03990160 ' 


r 0082 




oimn?""' 


r W85 




03990170 


r 0088 




03990180 * 


r 0091 




0T9W1W ' 


r tnw 




03990195 ' 


r 0098 




03990200 " 


r oioi 




03990210 "' 


r 0104 




03990220 ' 


r otos 




03990230 ' 


r 0106 




03990240 1 


.. mQf 




03990250 i 


r 0109 




03990260 ■ 


r oin 




03990270 i 


r on2 




03990280 i 


r oii4 




03990290 1 


r oils 




039W291 1 


r ou6 




03990300 1 


r 0U6 




03990310 1 


r oii6 




3990115 ' 


f 0119" 




03990320 1 


r 0122 




03990330 ' 


r 0124 




0399TTJ31 ' 


r 0125 




03990340 1 


r 0125 




03990350 ' 


r 0128 




03990351 'i 


r 0128 




03990360 1 


r 0128 




03990370 i 


r ouo 




03997)380 1 


r oi3i 




03990381 i 


r oi3i 




03990390 1 


r oni 




03990400 ' 


r 0133 




03990410 1 


r 0133 




03990420 1 


r 0133 




O39~90~4 33 1 


r oris 




03990440 1 


r 0136 




03990*50 1 


r 0138 




03990460 1 


r 0139 




03990470 1 


r 0139 




03990480 1 


r 0139 




03990490 1 


r or«r 




03990500 1 


r 0147 




03990510 1 


r 0148 




""03990520 1 


rUT4T~ 




03990530 1 


r 0148 




03990535 1 


' 0148 




0T9TO540 T 0I4T 




03990542 1 


r 0148 



*' 



KITI 



EP{9#STD)J EO(DUP.)J E0LC9) / 

E0(IF C3.t24»6]s"A" OR C3. [ 24 I 6 3«"X M THEN LESS ELSE GRTR) i 
EP(2#BFC>; EO(HEL); EQLC9); EO(XCH); EO(TOP)) EO(LNG) ; 
EP(H,B8C); EOCDEL); IF C3s"MlNl " OR C3«"MAX1 " THEN GO 
END J 

END OF CASE STATEMENT J 



IF nEBUGTOG THEN 
END OF DOITINLINE 



FLAGROUTINE<"DOlT!N"»"l.lNE 
i 



w # FALSE) I 



Q 39905 4 5 
03990550 
03990555 
AINT 03990560 
03990565 
03990566 
03990800 
START OK SEGMENT 
119 IS 22 LONG, 
03.9908 1.0_T 
03990815 T 
03990820 T 
118 IS 160 



0151 
0154 
0159 
0163 
0167 
0168 
0168 
********** 

NEXT SEG 
0169 

0171 

NEXT SEG 



119 
118 



Real procedure loqkfqrintrinsic(l>; value l* real l; 

BEGIN 

ALPHA ID* l» X# NPARMSj 

REAL T; 

LABEL FOUND. XIT; 
IF OEBUfiTOG THEN FLAGROUTINEC "LOQ«FO%"Rl NTRN", TRUE ) * 
LOOKFORINTRINSIC ♦ L ♦ NEEDCID * GETCL+1 >> FUNIO) ; 
IF GfTCL+2) < THEN GO TO XIT; % PARAMETER INFO KNOWN 
COMMENT 8 MUST BE SET TO K/2# WHERE K IS THE INDEX OF THE LAST 
INTRINSIC NAME IN THE ARRAY INt; 
A*0i B«-NUMINTM1 J 
WHILE A+l < B DO 
BEGIN 

I «• REAlCBOOLEANCA + B) AND BbbLEANCib22))"i 
IF 2 ♦ INTCH * ID THEN GO TO FOUND; 
IF ID < Z THEN B ♦ NC36S11] ELSE A * I.C36lll]J 
END* 

IF ID * INTCI«-(A + B)x2-I3 THEN GO TO FOUNO; 
GO Tfl XITJ 
FOUNo' 
NPARMS*(X*INTtI+ll ),INTPARMS* INTt 1+1 3 . INTSEEN*1 ) 
INF0tL.lR»L.IC3.SUBCLASS*X f INTCLASS ; 
PUT(L*2*-CHNEXT£XTRAtTOADINFO]&NPARMSCTONEXTRA3))} 
IF NpARMS ■ THEN NPARMS ♦ 1* 
T*XllNTPARMCLASS ; 

for t * i step l Until "nparms do 

BEGIN 

extrainf0[nextextra.ir,nextextra,ic3 * 
g expclass[toclass] & tct0subcl3; 
nextextra ♦ nextextra ♦ u 
end; 

XITI 

IF DEBUGTOG then flasroutine<"Lookfo , %"rintrn"»false) * 
end lookforintrinsic; 



start 



120 IS 



03991000 
03992000 
3993000 
OF SEGMENT 
03994 000 
03995000 
03995010 
03996000 
03996050 
03996100 

03996200 
3997000 

03998000 
03999000 
04000 000 
04001000 
04002000 
04003000 
04004000 
04005000 
04006000 
04007000 
04008000 
04009000 
04010000 
04011000 
040 12000 
04013000 
04014000 
04015000 
04016000 
04017000 
04018000 
04018010 

04019000 
62 LONG 



T 0513 
T 0513 
T 0513 
********** 



T 
T 
T 
T 
T 
T 

T 

T 

T 

T 
t 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 

T 



0000 
0000 
0000 
0002 
0005 
0007 

0007 
0007 
0009 
OOli 

oo it 

0013 
0015 
0022 
0022 
0026 



120 



0027 
0032 
0037 
0041 
0043 
0044 
0045 
0045 
0047 
0050 
0051 

0053 
0054 

0056 
NEXT SEG 



INTEGER PROCEDURE .JEXPRC : VALREQ ) I V ALUE V ALREO; BOOLEAN VALREQJ 



04020000 T 0513 



begin label loop* stack, xit# noscan; real t; 
label arry; 

LABEL HFRE f 



START 



REAL 

BOOLF 

REAL 

D.EFIM 
REAL EXp 

REAL 

REAL 

DEFT 



LABFL 

LABFL 
REAL 
DEFIm 

COMMENT 
OPERATOR 



savit* savi 

an cnstseen 

saveadr; 

E QPTYPE * 

reslt#expln 
expv; 

TM I 

NE E0*EMIT0 
ES1COP)' 
ES2*BEGI 
CTYP, OTY 
CTIMESR# 

l specchar* 
link; 

E Tl » EXPT 

THE FOLLOWl 

NUMBER (OP 

OPERATOR 

** 

UNARY - 

/ 



Pi 

last; 

lstt#; 
k; 



%FOR HANDLING 
^EXPONENTS 



CONSTANT 



*> EP*EMITPAIR#, EOL-EMtTdPbCLIT** 
BEGIN EO(XCH)i EPC9,STD); EOCOP) END *, 
N EP(9#STD); EO(XCH); EP(17*SND); EO(MUL) END * i 
P> RLESSC* DLESSC* CLESSD* CLESSC/ RPLUSD* DTIMESC* 
CDIVBYD, CTIMESR1* CTIMESR2, DLESSC1 J 
RELATION; 



1*» T2 * 

nG table 

) OF THE 



EXPT2## CODE « EXPT3#; 

GIVES THE PRECEDENCE (PREC) AND 

ARITHMETIC AND LOGICAL OPERATORS, 



PREC 
9 



+ 

tNE» 
.GE. 
.GT, 

• EO.#. 

.LE. 

.LT. 

.NQT, 

.AND, 

.OR. 

THE UNARY 
PROCEDURE MATHfD* C 
BEGIN 

EMITn(MKS); 
EMIT LCC >I 
EMITv(NEED( M .MAT 

EMlTo(DEL); 
IF ■ 2 THEN EM 
OPTYpECITMT-13 
END MATh; 



8 
7 
7 
5 
5 
4 
4 
4 
4 
4 
4 

3 

2 

1 

plus is ignored; 

* n; value 6* c« t; real d# c# t; 



h », intrfuniD)>; 



op 

15 
12 
14 

13 

It 

10 

9 

8 

7 

6 

5 

4 

3 

2 

1 



ifOCDEL); 

* t; 



04021000 


T 


0513 


OF SEGMENT 


********** 


04022000 


T 


0000 


04022010 


T 


0000 


04023000 


f" 


6660 


04024000 


T 


0000 


04025000 


T 


0000 


04"025500 


C 


0006 


04025600 


C 


0000 


04026000 


T 


0000 


040270W 


T 


0006 


04028000 


T 


0000 


04028010 


T 


0000 


040 21 02° 


.._.. 


oow 


04028030 


T 


0000 


04028040 


T 


0000 


04028050 


T 


0066 


04028060 


T 


0000 


04029000 


T 


0000 


04630006 


T 


6000 


04031000 


T 


0000 


04032000 


T 


0000 


04033000 


T 


0000 


04034000 


T 


0000 


04035000 


T 


0000 


04036000 


T 


0000 


04037000 


T 


0000 


04038000 


T 


0000 


64039600 


f 


OTJOo 


04040000 


T 


0000 


04041000 


T 


0000 


04042060 


T 


0066 


04043000 


T 


0000 


04044000 


T 


0000 


O46456O6 


t 


0066 


04046000 


T 


0000 


04047000 


T 


0000 


64041600 


f 


0W6 


04049000 


T 


0000 


04050000 


T 


0000 


04051000 


T 


6006 


04052000 


T 


0000 


04653000 


T 


0000 


04054000 


T 


W0~6 


04055000 


T 


0001 


04056000 


T 


0003 


6~4 5 F6 06 


f 


0603 


04058000 


T 


0005 


04059000 


T 


0008 



121 



nnew * name; 
if debufitog then flagroutinec " 

OPTYPEESAVIT MT ' *""if+l ]""♦ 

prcsavip«-ip«-ip+u * opsnip] 



expre h * w ssion *strue ) ; 
* 0; 



04060000 T 0010 

04061000 T 0010 

04062660 T 0012 

04063000 T 0014 



». 



*• 



stack end; 



J 



IF GLOBALNEXT ■ PLUS THEN GO TO LOOP! 

IF GLOBALNEXT * MINUS THEN 

BEGIN PREC «• 8; OP * 121 GO TO 

IF PREC > THEN GO TO STACK; 

LINK«.(EXPUNK4.FNEXT)4REAL(SCANENTER)t2«47in 

GO to noscan; 
loops scan; 
link * fnext) 

NOSCANt 

cnst^eenlasti-false; 
if globalnext * id then 

BEGIN 

IF IP J SAV.IP THEN EXPRESLT ♦ EXPcLASS; 

opTYPEtiT*iT+n ♦ (A*GET(LiNK)). subclass; 
Scan; 

if not randomtoq then 

NExT«EQUAL THEN BEGIN NEXT*-6; 0P*6; 
GLOBALNEXT • ID OR GLOBALNEXT * NUM 
BEGIN FLOG(l); GO TO XIT END; 

NOT valReq and PREC > then valreo 

GLOBALNEXT * LPAREN THEN 
BfGIN 

link * getspaceclink); 
t ♦ ca*get(link)), class; 

IF XREF THEN ENTERX(GET(LlNK+l)*04A[15ll5t93); 
IF EXPRESLT * 6 THEN EXPRESLT * fj 



If 
If 

If 

If 



PREC*4 
THEN 

♦true; 



END ; 



IF 



VALREQ 
IF 



ELSE 
BEGIN 
IF 



THEN 
T « VARIO 
BEGIN XTA 



THEN EMITV(LINK) ELSE 

* GETCLlNK + i); FLAG"<56) END 



T « VARID THEN 

IF GLOBALNEXT > SLASH AND EXPRESLT * VARID THEN 

BEGIN 

DESCREQ * TRUE? EMITN(LINK); DESCREQ V FALSE* 
GO TO XIT; 
END ELSE EMITV(LINK) 
ELSE 
BEGIN 

IF T s ARRAYJD THEN 



BEGIN 

IF BOOLEAN(A.CE) THEN 

EMITNUM(GETCLINK+2),BASE> 
IF BOOLE AN (A. FORMAL) THEN 
EMITOPDCLITCA.ADDR-I) ELSE 
EMITL(O); 
GO TO~ARRYr 

END ELSE EMITPAIR<A,ADDR,LQD>; 
GO_ TO XITi 

end; 

END* 

go to specchar;_ 
end; 

if a, class * arrayid then 
bfgin comment function reference; 

expSeslt ♦ Expclass; 

if a, class * stmtfunid then 



ELSE 





04064000 


T 0019 




04065000 


T 0020 




04066000 


T 0021 




04067000 


T 0026 




04068000 


T 0027 




04069000 


T 0029 




04070000 


T 0030 




04071000 


T 0030 




04072000 


r 0031 




04072500 


5 0032 




04073000 


f -00S2" 




04074000 


r 0033 




04074100 • 


r 0034 




04075000 • 


r 0036 




04076000 ■ 


r 0039 




04076050 * 


r 0040 




04076100 ' 


r 0641 




04077000 • 


r 0045 




04078000 ' 


r 0047 




04078100 ' 


r 0048 




04079000 * 


r oosi 




04080000 • 


r 0052 




04081000 ' 


r 0052 




04082000 < 


r 0054 




04082|,00 1 


r 0056 




04683000 1 


r 0660 




04084000 1 


r 0062 




04085000 1 


r 0062 




04086600 i 


f 0064 




04087000 1 


r 0067 




04088000 1 


r 0067 




04089000 1 


r" "W6fl 




04090000 1 


' 0069 




04091000 1 


r 007i 




04092000 1 


' 007 i 




04093000 1 


' 0074 




04094000 1 


' 0074 




04095000 1 


' 0075 




04096000 1 


■ 0075 




04097000 1 


0076 




64698606 1 


• OOf 7 




04099000 1 


' 0077 




04100000 1 


• 0078 




04101000 1 


\ 0081 




04102000 1 


0082 




04103000 1 


• 0084 




54104000 1 


' W8T ~ 




04105000 1 


0086 




04106000 1 


0088 




04107000 1 


0089 




04108000 T 


0089 




04109000 T 


0089 




04110000 1 


0089 




04111000 T 


0089 




04112000 T 


0090 




04112100 T 


0091 




04113000 T 


0092 



BEGIN 

IF XREF THEN ENTERX (GET CLlNK+1 ) »04A[ 15 » 15 I 9 3 ) ; 

STMTFUNREFCLINK) ; 

IF NEXT=EOUAL THEN IF NOT RANDOMTOG THEN 

BEGIN NEXT*0; 0P*6; PREC*4 END ; 
GO TO SPECCHAR ; 

end ; 
if a.class»extld or get(tm«-gl0balsearch(get(link+1))),cuass«» 
fxtid then l ink*real< doitinlinec-link ) ) else 

IF AtCLASS<FUNlD AND TM«0 THEN 

IF DdlTINUNE(LINK) THEN GO HERE ELSE 
LINK «■ LOOKFORINTRINSIC(LINK) ELSE 
LINK ♦ NEED(GETCLlNK+l)*FUNID); 

if xref then enterxcgetc llnk+1 ), osgetcllnk ) 1 15 1 15 t 93 )) 

emito(mks); 

parametersclink); 

if errortog then go to xit else scan; 
emitv(link ); 

if optypeut] «• get(link),subclass i doubtype then 
emitopdclit(junk); 
here' if next«equal then 

if not randomtog then begin next*o; prec*4i 0p*6 eno i 
End else 

BfGIN COMMENT ARRAY REFERENCE; 

IF XREF THEN ENtERXC GET (LlNK + 1 )>0&A[ 151 15 » 93 )) 

scan; 

valreq ♦ subscripts(link,realcvalreq)); 

IF " E'RRO'R'f D'fi'"'fW£N" GOTO "TtTi 
IF NEXT»EOUAL THEN IF NOT RANDOMTOG THEN 
BEGIN NEXT«-0; OP*6; PREC<-4 END ; 

IF EXPRESLT" = 0" THENT X PRESLT * SUBSVAR; 

IF NOT VALREQ THEN 
BEGIN 

IT GLDBALNEXT > SLASH AND EXPRESLT » WB5VAR THEN 
BEGIN 
ARRY» 

IF"BOOLEANaA*GET(LlNK)) t TwOD) THEN 
BEGIN 

EMlTPAIR(TWODPRT# LOD); 

"f V aVaddr; 

IF T S 1023 THEN 
BEGI_N 

EMitirf.taeuoj); 

EMITDESCLIT(IO); 

END_EL.SE 
BEQlN 

EMITL<T,[40»83>; 
_ EMITDE SCLIT(1536)I 
EM I TO (i NX); 

END; 
EMITOCCTF); 



04114000 

0411405(5 

04114100 

04114200 

04114300 

04114400 

04114500 

04114520 

04114530 

04115000 

04115010 

04116000 

04117000 

04117100 

04118000 

04119000 

04120000 

04121000 

04122000 

04123000 

04124000 

04124100 

04124200 

04125000 

04126000 

04126100 

04127000 

04128000 

O4TW0U0 

04129100 

04129200 

04130000 

04131000 

04132000 

04T3T0O0 

04134000 

04135000 

O4T360OO 

04137000 

04138000 

04139000 

04140000 

04141000 

04142T5W 

04143000 

04144000 
0" 4 1 4 MOT 
04146000 
04147000 



end else emitpair<a.addr,l0d); 

emitocxch); 

go to xit; 

end; 

IF B00LEAN((A*GET(LINK)),TW0D) then 



04148000 
04149000 
04150000 
04151000 
04152000 
041,53000 
04T54000 
04155000 



0093 
0093 

0097 
0098 
0100 
0103 
0103 
0103 

0108 
0111 
0113 
0115 
0117 
0120 
0124 
0125 
0125 
0125 
0127 

0128 
0130 
0132 
0132 
0137 
0137 
0137 
0141 
0141 

WT 

0144 

0146 

0149 

0151 

0151 

0154 
0154 
0155 
0156 
0^57 
0161 

0163 

0163 

15164 

0165 
0166 
0l6~6 
0166 

0168" 

0169 

0169 

01Tb" 

0173 

0174 

0174 

0174 



•* »» 



BEGIN 

splitca.addr); 

if a. subclass j doubtype then 

BEGIN 

EMITO(CDC); 
EMITOCDUP)! 
EMITPAIR(1, XCH); 
EMITOCINX); 
EMITO(LOD); 
EMITO(XCH); 
EMlTOCLbbjl 
END EUSE EMITOCCQO; 
END ELSE 
EMITVCLINK5J 
END) 

End array reference; 

gd to specchar; 
end; 
if globalnext ■ num then 

BEGIN 

IF NUMTYPE * STRINGTYPE THEN 
IF VALREQ THEN 
BEGIN 

NUMTYPE*INTYPE * 
IF STRINGSIZEM then 
ELSE BEGIN 

IF STRINGSIZE>2 

FLAG(162) ; 
IF (FNEXT*STRINGARRAYC13 f [12«6HSTRlNGARRAYt0H6ll2l363) 
,C6I6]>7 THEN NUMTYPE*REALTYPE ; 

end ; 
end; 
saveadri*adr; cnstseenlasti*true; 
if numtype « doubtype then 

EMITNUM2(FNEXT»DBL0W) ELSE EMITNUM (FNEXT); 
OPTYPEtlT*lT+U ♦ numtype; 
if expreslt « then 

bfgin expreslt * numclass; expv * fnext "end; 
scan; 

if not randomtog then 

if next*eoual then begin next*o; op*6; prec*4 end ; 
if not valreq and prec > then valreq ♦ true; 
if globalnext ■ id or globalnext ■ num then 

BEGIN FLOGCl); GO TO XI f END; 

end; 

specchari 
if globalnext 

BEGIN 

ScA.Nl... _ ._ .._ 

0PTYPEtlT*IT+l3 ♦ EXPRCTRUE); 



FNEXT*STRINGARRAY[03 

OR STRlNGARRAYCl],tl8«30]^ M 



THEN 



XP A REN THEN 



IF G_LOiALNEXT _■ COMMA AND EXPRESULT_» NyMCL.ASS THEN 
BE 6 IN 

if qptypeutj > realtype then flagc85); 
scan; 

IF EXPR(TRUE) > REALTYPE 

OR EXPRESULT t NUMCLASS THEN FLAGC85); 



Q4156qoq 

04157000 
04158000 
04159000 
04160000 
04161000 
04162000 
0416 3000 
04164000 
04165000 
04166000 

04167000 
04168000 
04169000 
04170000 
04171000 
04172000 
04173000 
04174000 
04175000 
04176000 
04177000 
04177200 
04177400 
04177500 
04177550 
04177575 
04177600 
04177700 
04177800 
04177900 
04178000 
04178500 
04179000 
04181)000 
04181000 
04182000 
04 1 13000 
04184000 
04184050 

04184100 
04184200 

04185000 

04186006 

04187000 

04188000 

041 Pood - 

04190000 
04191000 
04192000 
04193000 
04194000 



04195000 
04196000 
04197000 
04 1 98000 
04198100 



0176 
0177 

0178 
0179 
0180 
0180 
018J 
0182 
0183 
0184 
0184 

0185 
0186 
0186 
0188 
0186 
0188 
0188 
0188 
0189 
0189 
0190 
0191 
0191 
0192 
0194 
0195 
0197 
0199 
0201 
02 04 
0204 
0204 
0205 
0206 
0210 
0213 
0213 

0215 
0216 
0217 
0221 
0224 
0225 
0227 
0227 
0228 
0228 
0229. 
0229 
0232 
.0232. 
0234 
0234 
0237 
0237 
0238 



m 



*• numclass; 



EMITOCXCH); 

QPTYPECIT] * comptype; 
IF EXPRESLT * THEN EXPRESLT 
END ELSE EXPRESLT ♦ EXPCLASS; 
IF 6L08ALNEXT * RPAREN THEN 
BfGIN FL0GC108); GO TO XlT END/ 

GO TO loop; 
end; 

WHILF PRCIP] I PREC DO 
BEGIN 

IF IT $ SAVlT THEN GO TO XJTJ 

CODE «• MAPCTl*OPTYPEtlT-nj*3 + MAP[T2«-0PTYPEt ITI 3 ; 

CASE OPSTUPJ OF 
BEGIN 

xit; 



GO TO 

BEGIN 

IF 

It 

end; 

BEGIn 

If 

it 
end; 

IF T? 
BEGIN 
BEGIn 
BEGIn 
BEGIN 
BEGIN 
BEGIN 



Tl ■ LOGTYPE AND 
ELSE FLAGC5DJ 
* .IT.-1I 



Tl = LOGTYPE AND 
ELSE FLAGC52); 

«• it-i; 



T2 * LOGTYPE THEN EMITOCLOR) 



T2 * LOGTYPE THEN EMITOCLND) 



T 

T 
T 
T 
T 
T 



THEN EMITOCLNG) ELSE 
GO TO RELATION END; 

RELATION 

RELATION 

RELATION 

RELATION 



FLAGC53H 



GO 
GO 
GO 

GO 



TO 
TO 
TO 
TO 



End; 
end; 
end; 
end; 



O THEN 
OF 



L9GTYPE 

«• less; 
leql; 
equl; 
grtr; 
geql; 

neql; 
Rflationj 

if code < 
case code 
bfgin ; 
begin 

FOCCHS); 
E0CAD2) ; 

end; 

FLAGC90); 

begin emitpairco, 

EMlT0(S82); 

FLAGC90); 

FLAG(90); 

FLAGC90); 

IF f* EQUL AND T* NEQL THEN "FUG (54) 

ELSE 

BEGIN 

EP(9#SfD); ETOCXCH); E0LC9)"; EO'fTyjf 

EP(9,STD ); EOCT); E0L(9); 

T*CIF T'EQUL THEN LND ELSE LOR); CODE*o; 

end; 

end relation case statement; 



IF CODE > O THEN 



FLAGC54) ELSE 



EP(9,STD); EOCXCH); E0LC9); EO(XCH); EPCOj 



XCH); EMIT0CSB2) END; 



04199000 T 0241 




04200000 T 0241 




04201000 T 0243 




04202000 T 0245 




04203000 T 0246 




04204000 T 0247 




04205000 T 0248 




04206000 t 0249 




04207000 T 0249 




04208000 T 025J 




04268100 T 02fi 




04209000 T 0252 




04210000 T 0257 




04 2 n 006 t 0257 




04212000 T 0258 




04213000 T 0258 




04214600 T 0258 




04215000 T 0261 




04216000 T 0262 




04217006 T 0264 




04218000 T 0264 




04219000 T 0264 




04226600 T 0267 




04221000 T 0268 




04222000 T 0270 




04223606 T 0276 




04224000 T 0274 




04225000 T 0276 




04226666 T 0277 




04227000 T 0279 




04228000 T 0281 




04229656 T 028 3 




04230000 T 0283 




04231000 T 0284 




04232000 T 0286 




04233000 T 0286 




04234000 T 0287 




XCH) ; 0423 5 f 02*7 




04236000 T 0292 




04238000 T 0293 




04239606 T 02*3 




04240000 T 0294 




04241000 T 0297 




O42~4~2~0O0 f 0298 




04243000 T 0299 




04244000 T 0300 




642^5W0 P "0362 " 




04245100 c 0304 




04245200 C 0305 




64T433U0 c 6T05 




04245400 C 0308 




04245500 C 03U 




04245666 C Oil 4 


""" 


04246000 T 0315 
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04247000 T 0315 





*. •* 



•' •» 



m 



BF.GIN EMITOCXCH); EMIT0(DEU)J EMITL(O) .ENDI. 
EMlTO(T); 

6pTYPrMT*iT*n ♦ logtype; 

E*0; 

IF CnOE < THEN BEGIN FLAGC55); IT * IT-1 END ELSE 

CASE CODE OF 

BEGIN 

BFGIN 

EMlTO(AOD)i 

IF Tl * INTYPEJND T2 m INTYPE THEN IT * IT-1 ELSE 
QPTYPEUUlT-rJ * REALTYPE) 

end; 

bfgin tm*ad2 ; 

RPLUSDI E"P(f#SfD); EOCXCH); E0LC9); EO(XCH); EP(6»XCH)j' e"0("TmT'T 

dtypi optype[It«-it-i]«-doubtype ; 

end. ; 

Bfgin tm*add; go rlessc end ; 
bfgin 

emitpairco* xch); 

EMIT OC A02>> 

IT * IT-1J 
EMDJ 
BfGIN EMIT0CA02); IT «• IT-1 END; 

bfgin tm*add; Go dlessc end ; 

»>gin emito(ado)! it * it-1 end; 

bfgin tm*aDd; gq clesso end ; 

bfgin tm*add; go clessc end ; 
end add case statement; 



IF C 
CASE 

begi 
8 



RLESSCl 
E 
B 



E 
B 
B 

DLESSCl 

DLESSC1 
E 
B 
B 

CLESSOt 

CTYPJ 

E 



ODE < 
CODE 
N 

FGIN 
EMI 
IF 

no; 
fgin 

FGIN 
ESI 

nD ; 

FGIN 
EMT 

EMI 

IT. 

nd; 

FGIN 
FGIN 

ESI 
I EOL 

no ; 

FGIN 
FGIN 
EOf 

OPT 

nd ; 



THEN BEGIN FLAGC55); IT * IT-1 END ELSE 

OF" """ " 



tocsub); 

ti * intype ano t2 * intype then it «• it-1 else 

p t y p e ci t * i t - 1 jj ♦....real typej 

eocchs); tm*ad2; go rplusd end ; 

tm«-sub ;__ 

ctm); go dlessc i ; 



TPAIRCO* XCH); 

T0(SB2»; 
*_.ITMJ._.„ 

emit0(sb2); it * it-1 end; 

tm»sub ; 

ctm); eocxch); eocdel) ; 

(9); if tm«sub then eo(chs); go ctimesr2 ; 

EMiTocsuB); it * iT-1 end; 
tm*sub ; 

XCH); EO(DEL); EO(TM) ; 
YPEtlf*lt-li'*COMPf'YPE'l 





> • 


• • » 


jt^ 




0424800Q ' 


r 0116 .... 






04249000 ' 


r 0319 






04250000 * 


r 0320 






04251000 ' 


r 0322 






04252000 ' 


r 0322 






04253000 " 


r 0326 






04254000 • 


r 0326 






04255000 1 


r 0327 






04256000 1 


r 0327 






04257000 1 


r 0328 






04258000 1 


r 0331 






04259000 1 


r 0334 






04260000 1 


r 0334 




; 


O426OO10 1 


r 0135 






04260020 1 


r 0341 






04260030 1 


r 9 343 






04261000 1 


r 0343 






04262000 1 


r 0345 






04263000 1 


r 0345 






04264600 1 


r 0346 






04265000 1 


r 0347 






04266000 1 


r 0348 






04267000 1 


r 0349' 






04266000 1 


r 0351 






04269000 1 


r 0353 






042TOU0U" 1 


r" 0355" 






04271000 1 


r 0357 






04272000 1 


r 0359 
********** 123 






START" OF SEGMENT i 






123 IS 10 LONG< 


• NEXT SEG 121 






04273000 1 


r 0360 

r THW " ~ 






0427400"0 1 






04275000 1 


■ 0364 






04276000 1 
04277000 1 


r 0364 






r 0364 






04278000 1 


' 0365 






04279000 1 


r 0369 






04280000 1 


r 0371 






04281000 1 


r 0372 






04282000 J 


■ 0374 






04282010 1 


r 0375 






04282030 1 


r 0379 






04283000 1 


r 0379 






04284000 1 


r 0379 






04285000 1 


• 0380 






04286000 1 


' 0381 






04287000 1 


r 0382 






04288000 1 


• 0383 






04289000 1 


' 0385 






04289005 1 


' 0386 






04289007 1 


' 0391 






04289010 1 


• 0394 






04290000 1 


• 0394 






04291000 1 


■ 0397 






04291010 1 


• 0398 






04291015 1 


0400 






04291020 1 


0403 













BfGIN TM*SUB i 
CLESSCl ESl(TM); GO CTIMESR1 l 

END i 
END SUBTRACT CASE STATEMENT; 



BEGIN X HANDLE NEGATIVE NUMBERS CASE STATEMENT, 

EXPV«.-EXPV J 

IF T? i REALTYPE 



THEN EMITOCCHS) ELSE 
LOGTYPE THEN FLAGC55) ELSE 
DOUbTYPE THEN EMifOCCHS) ELSE 

cOmptype Then 



IF T? 
IF T2 
IF T ? 
BEGIN 

EMITO(CHS); EMlTO(XCH)l 

EMITOCCHS)) EMITO(XCH); 
END ELSE FLAG(55)* 

END oE NEG NUMBERS CASE STATEMENT ; 
IF CnDE < THEN BEGIN FLAGC55); IT ♦ IT-1 END ELSE 

CASE CODE OF 

BEGIN 

BrGIN 

emito(mul)^ 

if tl * intype and t2 ■ intype then it * it-t else 
0ptypecit*it-13 ♦ realtype; 

End* 
bfgin 

BfGIN 

begin 

EMlfPAIRCb* 
EMIT0(ML2)J 
IT * IT-1* 

ewd; 

BfGIN EMIT0(ML2)j IT ♦• IT-1 

bfgin es2; eocxch); eo(del) 

DTIMESCi E0L<9>; E0LC'i7J* EOCMULJ; 

End ; 

bfgin tm*mul ; 

CTlMESRi EPf 97SNO)J EO(TM)' ) 

ctimesr1 ieocxch); e0l(9); eo(tm) ; 
ctimesr?ieo(xch); go ctyp i 

end ; 

BFGIN tm*mul> go cdivbyd end 

MaTHC2» 26* COMPTYPE); 
END MULTIPLY CASE STATEMENT"; 



TM4-ML2; 
ES2; GO 



GO RPLUSD END 
DTIMESC END i 

xcH); 



end; 
; 

GO CTYP 



IF CODE < THEN BEGIN FLAGC55); IT * IT-1 END ELSE 

CASE CODE OF 

BEGIN 

IF tl * INTYPE AND T2 •'INTYPE THEN" 

BfGIN EMITO(IDV)! IT «• IT-1 ENO ELSE 

bfgin emitocdiu); optypec itmt-13 «• realtype end; 

IfgTn" " """" """ "* " " "" 

EP(9»STD); EPC17#STD); EP(0»XCH); E0LC17); E0L(9); E0CDV2) ; 
GO DTYR ; 

end"; 

MaTHU* 29* COMPTYPE); 
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T 
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"f 
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T 


0408 


04293000 


T 
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START OF SEGMENT 


********** j g 4 
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04306000 
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f 
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04313000 
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04318000 


T 
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64318016 
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04318020 


T 


04S6 


04319000 


T 
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043X9010" 


._.. 


0458 


04319020 


T 


0459 


04319030 
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04319040 
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0464 ~ 


04320000 


T 
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04321000 


T 
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04322000 


T 
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START OF SEGMENT 


********** 125 
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04323000 


T 


0469 


04324000 


T 


0472 


04325000 


T 


0473 


04326000 


T 


0473 


04327000 


T 


0475 


04326000 


T 


0476 


01»I29WO 


T 


0482 


04329010 


T 


0482 


04329020 


T 


0487 


04329030 


T 


0487 


04330000 


T 


0488 



•* 



BfGIN 

EMITPAIRCO* XCH); 
EMTT0CDV2); 

it «■ it-i; 
End; 

BfGIN EMIT0C0V2); IT «■ IT-1 END; 

MaTH(2# 32* COMPTYPE); 

BFGIN TM*DIU^ GO CTIMESR END ; 

BFGIN TM«.DIU ; 
CDlVBYDi EO(XCH)i EO(DEL); GO CTlMESR I 

EnO i i 

MATH(2» 35# COMPTYPE); 
ENO OF DIVIDE CASE STATEMENT; 



IF cn 
BEGIN 
IF CD 
Cn 
BEGIm 

if 
op 

EV 

A. 

WH 
Bf 



OE < THEN BEGIN 



EM 
IF 
Wh 
END F 
BEGIN 
EM 

Em 
Em 

Ca 

Bf 



DE m AND 
STSfENLAST 

Tl « INTY 

type (it* it 
pv!»link; 

■1J ADRt«S 
ILE EXPV 

GIN 
EMlTOfDUP 
IF BOOLEA 
EMlfOCMUL 
EXPV * EX 

d; 

EXPV = 
ILE A ♦. A- 
L.SE 

ITO(MKS); 
ITL(COOE); 
ITVCNEEDT" 
SE CODE OF 
GIN 
BEGIN EMI 



T2 * IN 

THEN. 

PE AND T 
m .\} * R E 

aveadr; 

DIV 2 * 



FLAG<55); IT «■ IT-1 END ELSE 
TYPE AND 



2 = intype then it * it-1 else 
altype; 



DO 



N(ExPV) THEN BEGIN A*A+i; EMITO(DUP) END; 

); ■"- 

pv div 2; 



THEN BEG 
1 t DO 



in emito (del ) ; emi tl u ) end else 
emitocmud; 



.XTOT ■■■">■■ TRTRFO'NTO'3')'J 
TO (DEL); 



BEGIN 
BEGIN 
BEGIN 
BEGIN 
BEGIN 
BEGIN 
BEGIN 

BEGIN 
EnD OF 



emjtocded; 

EMlfOCD'EL); 

emitocdel); 
emito (del); 
emTtocdelT; 

EMITO(DCL); 
E_MIT0(DEL); 

EMI TO (DEL); 
POWER CASE ST 



OPTYPEtlT*IT-13*IF (Tl»INTYPE AND T2«INTYPE) 

THEN INTYPE ELSE REALTYPE END; 
0PTYP_ECIT«"IT-1]_* DOUBTYPE ENDI 
bPfVPECiT*it-13*COMPTYPE END ; 

it * it-i end; 

EMITOCDEL); IT _♦ IT«1_^ND; 

EMlfOCDEL); ~6PfYPE(IT*lf-n*COMPfYPE" END "J 

IT * IT-1 END; 

EMITO(DEL); JT ♦ IT-1 END* 

EMITOCbEL )J lf*if«i END I 

atement; 



end; 
eno; 

End; 
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0499 


04339010 


T 


0500 


04 339020 
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04352000 
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04359000 
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04363000 
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0547 
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********** i_27 
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04379000 
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0574 


START OF SEGMENT 


********** 128 



Ip * ip-i; 
end; 
exprfslt * expclass; 

STACK! 

PRtIP*IP + l] «• prec; 

oPSTtiP] * op; 

IF PrEC > AND PREC S 4 THEN 
BEGIN 

Scan; link ♦ fnfxt; 

if next * plus then go to loop; 

if next t minus then go to noscan; 

PrEC * 8; OP «• 12; 

Gn to stack; 
end; 

go to loop; 

xiti if ip i savip then fl0g(56); 
ip * savip-i; 
expr «■ optypecit]; 

IF OpTYPEtIT-1] * THEN FL0GC56); 

it «■ savit-i; 
exprfsult * expreSlt; 
expvalue * expv; 
expltnk «■ explnk; 
if oebugtog then flaQroutinec" expre%"ssion "/false) ; 

END EXPR; 
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5000 



121 IS 



17 
04380 
04381000 
04381100 

04 382000 
04383000 

04384000 
04 385000 

04386000 
04387000 
04 388000 
04389000 
04390000 
04 391000 
04392000 
04393000 
04394000 
04395000 
04396000 

04397000 
04398000 

04399000 
04400000 
04401000 
04402000 
04403000 
04404000 
610 LONG, 



NEXT SEG 
0575 
0576 
0578 

0578 
0579 

0581 



121 



0582 
0584 
0584 
0586 
0587 
0588 
0590 
0590 
0590 
059t 
0593 
0594 
0595 

0598 
0599 
0600 
0600 
0601 
0603 
NEXT SEG 



PROCEDURE FAULT (X); 

value x; 

REAL X; 

begtn real link; label xit; 



sc 
sc 

IF 

po 

EM 

If 

EM 
IF 
EM 
IF 



LI 
IF 
EM 

SC 
SC 



an; if glObalnext * lParen then begin FLA"G(io6)> go xif end; 

AN; IF GLOBALNEXT X 10 THEN BEGIN FLAGC66); GO TO XIT END; 

X * 1 THEN POPRTtO»03 * POPRTCO#0] & 1C44U7I1] ELSE 
PRff6#0r*"P0PRf"T0i'0l 4'U*3" "HfJlU 

itopdclitc4i); emitocoup); 

x m 1 then begin e_mitl(2 >; emitocxch); emitlu) eno 
el se ~em i t l c 6 ) > 

ITO(LNO); 
X k 2 THEN EMITLC3); 

iTb«suB); ' "" "'"" 

X ■ 2 THSN 
BEGIN EMITO(OUP); EMITLU); EMlTOCSSN) ;EMlTO(EQUL); EMITLC2) 



04404050 
04404100 
04404125 
04404150 
START OF SEGMENT 
04404200 
04404250 
04404275 



;emito(bfo ; emitocded;emitl(2); 



end; 

NK__<. 

X ■ 

IT0( 

an; 
an; ' 



GETCGETSPACECFNEXT)); 
T'HlN 



JFMJ TP A I^R< L I NK . AOOR^I SO ) ; 
ENTlTLCTO) ELSE EMffLT25>r 
EMITL(4t)JEMlT0(ST0); 

t RPAREN THEN FLAGC108); 



1 

lno); 

IF GLOBALNEXT 



04404300 
04404325 
04404350 

64404 375 
04404425 
04404435 



T4404430" 
04404475 
04404500 



XITi 



04404525 
04404550 
04404570 
044~M6~00 
04404625 
04404650 

04464660 
04404675 



0513 
0513 

0513 

0513 

********* 

oooo 

0003 
0006 

TOTT " 

0015 
0017^ 

6620 
0022 
0022 
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"602T 
0025 
0026 



~66T0 
0032 
0032 
0016 
0039 
0041 

0044 
0044 



♦. 



♦* •' 



end fault; 



04404700 T 0045 
129 IS 48 LONG/ NEXT SEG 



PROCEDURE SuBREFi 
BEGIN RfAL LINK, I NFC i 



IF 
IF 



REAl 

LABF 

DEBUG 

TSSEn 

IF Na 

BEGIN 

RF 

EM 

EM 

Em 

EM 
Pll 

Sc 

END F 

BEGIN 

EM 
Em 

Em 

Em 

IF A 
AC 

Em 
Em 

LT 

if 
Sc 

LI 

If 

LT 

If 

IF 
EM 

If 



accident; 

L XI fj 

TOG THFN FLAGR0UTINE( h 
ITOG THEN IF NAME»"ZIP 
ME a "EXIT "" THEN 



* true; 



SUB"#"REF 
" ANO NOT 



m #true ) ; 
dcinput then 



tssed(name#3) ; 



turnfound 
men; 

ITPAIRU6, 
ITPAIRCIO? 
ITPAIRC 5, 
T(FNFXT+1* 

an; 

lse if name*"zip 



sto); 

kom); 
kom); 



); 



" AND NOT DCINPUT THEN 



'%' dummy File and format 



go to xit end; 



el 
em 

B P 

EM 

Em 
Em 

Em 

Em 
em 

END 
ELSf 



ITO(MKS); 

iTLfO); emitlco); 

ITPAIR(-1*SSN>; 

ITB(-UFALSE); LADR1«-LAX; ADJUST; DESCREQ*FALSE; 
DR > 4085 THEN BEGIN ADR*ADR+i; SEGOVF END; 
CIDENT*PRGDESCBL0R(0#0,A0R,t36ll0]+l»NSEG); 
IT0P0CLITC19); 
ITO(GFW); 

START * ADR&NSEGtTOSEGNO]; ADJUSTiSCAN; 
GLOBALNEXTXLPAREN THEN BEGIN FlAG(106);G0 TO XIT END; 

an; if globalnext/id then begin flag(66); go to xit eno; 
ndx * fnext; scan; xta ♦ getclindx*i>; 

GloBAlnExTXRPAREn THEN BEGIN FlAG(108); 

ndx «• geTspaceclindx); 
t*cllnfa*get(llndx)).classxarrayid then 
begin flagc66); 60 to xlt end; 
xref then enterx (xta,0«linfac 15 » 151 9 j ); 

ITPAIR(LADDR*LINFA.A0DR,L0D); 
B00LEAN(LINFA. FORMAL) THEN 
BEGIN 

IF T * GETCLINDX + 2X0 THEN EMITOPOCLITC T f SIZE ) 
ELSE EMITNUM(T.SIZE); EM ITOPDCl IT <L ADDR-1 ) ; EMITOCCTF) END 

sr'E'MrfwoMrffETTtiNox*'gyi"B*srNsr2tyj~cMrTtf'f8'>i EHrrocsTDy;; 

ITLCLINFA f CLASNSUB*0t44t47!U); EMITLU9); EMITOCSTD); 
ANCHLIT(LISTART,TRUE); EMITLC19); EMITO(STO); 
itb(RTS); ADJUST) 

ITL(l); EMITO(CHS); EMITLC19); emitocstd); 
ITDE^CLIT<19); EMITOCRTSj; FIXBCLADR1); DESCREQ*FALSE; 
lfpAlR<ACClOfNf»LODT; EMfTOPDCLITCr); EM'ff ("FTTyi" 
ITL(6>; % EOITCOOE 6 FOR ZIP 
ITV(NEEDC".FT0UT , MNTRFUNID2>J SCAN 

ELSE IF" NAMEs «OvERFL""YhEN FA'uTTC2'5 

IF NAME = "DVCHK *• THEN FAULT(l) 



04405000 
04406000 
START OF SEGMENT 
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04409000 
04410000 
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04413000 
04414000 
04415000 
04415010 
04415011 
04415020 
04415021 
04415030 
04415040 
04415050 
04415070 
04415080 
04415090 
04415100 
04415110 
04415120 
04415130 
04415140 
04415150 
04415160 
04415165 
04415170 
04415180 
04415190 
04415200 
04415210 
0441*220 
04415230 
04415240 
"04TT5I50 

04415260 
441527 
04415280 
04415290 
04415300 



T 0513 

f 0513 

********** 
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04415310 
04415320 



0000 

0000 

0000 
0002 

0006 

0007 

0008 

0009 

0010 

0011 

0012 

0013 

0015 

0015 

0023 

0023 

0024 

0025 

0027 

0030 

0033 

0036 
Q3y 

0037 
0040 
0045 
0048 
0051 
005 3 
0054 
0057 
0059 
0062 
0064 
0064 
0065 
0068 
0073 
0077 
0081 
0W3 
0084 
0087 
0090 
0093 
0094 
T" 0095 
T 0099 



T 
f 
T 
T 

T 

T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 

t 

T 

T 
T 
T 
T 
T 
T 
I 
T 
T 
T 
T 
T 
T 
f 
T 
T 



T 

T 

T 
_.. 

T 
T 



&M 



ELSE 

BEGIN) 

LINK 
IF XR 

EMIT n 

SCAN; 

IE G L 
BE 



IF 



PU. 

IN 

BF 

emitv 



«■ NEED(NAME# SUBRIDW 

EF THEN ENTERX(XTA,0SGET<LINK)[l5ll5t53)J 

(MKS); 

OBALNEXT ■ I.PAREN THEN 
GIN PARAMEtE'RSCLlNK)!' SCAN END ELSE 
IF NOT BOOLEAN(ClNFC«-GETCLINK + 2)).Ct«n> 

t(link4-2#-info else 

fc.nextra * then 

gin xta * getclink+1)) flagc28) endj 

(LINK); 



THEN 



ENCJ 
XITi 
IF DE8UGT0G 

end subref; 



THEN FLAGROUTINEC SUB"#"REF ">FALSE) * 
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04415330 T 


0103 
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0117 




04424000 f 
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04426700 T 
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PROCEDURE DE6LAREPARMSCFNEW); VALUE FNEw* REAL FNEWJ 
BEGIN 

REAL I* T» NLABELS, INFA, INFB, INFC; 

IF DEBUgTOG THEN FLAGRWTTNE ("DECLARE TPARWS"»TRUE > t 
INFA * GET(FNEW); 

IF InFA.SEGNO X THEN BEGIN XTA «• NNEWJ FLAGC25) ENQJ 
'lN'FArSf6"N'B~"i"SraeB'r'PlJT^Nlff7INr'*)") 
ENTRYLlNKtELX] * & FNEWtTOLlNK] & NEXTSSCTOADDR] f 

F0R . ...T . + .1 ... ?T. EP 1 UNTIL PARMS DO 
rf r I m 

EXTRAlNF0tNEXTSS,IR#NEXTSS.IC3 * PARMLINKtU; 
NEXTSS * NEXTSSM* 
IF T «• PA»MLlNKni * THEN 
BFGIN 

getall(t#inFa»infb,info; 

if booleancinfa .formal) then 

BEGIN 

if infa. segno » elx then 

BEGIN XTA ♦ InFB I FIaG(26) END) 
END ELSE IF (INFA < AND INFA.ADDR < 1024) OR B00LEAN( INF A, 

THEN BEGIN XTA <■ INFB; FLAG(107) ENDJ 
INFA * INFA ' & ltTOFORMAL) & ELXETOSI GNOJ* 
INFC .BASE ♦ I; 
PUT CT# INFA )_J PLJT(T*2#INFC); 
D ELSE NLABELS * NLABELS+i) 



START 



CE) 



EN 

end; 
if nl 

BEGIN 
IF 
ENOi 
GETAL 
IF Bn 



ABELS > THEN 
ENT RYLINK I ELX 1. CLASS V NLABELS' 
LABELMOM.O THEN BEGIN BUMPlOCALS; 



L ( FNEW, INFA* INFB* INFC ) "\ 
OLEAN(INFC.tlin) THEN 



LABELM0M«-L0CALS+1536 END; 
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OOW 


04432000 


T 


0002 


04433000 


T 


0003 


04434000 


T 
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0016 
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0016 
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0019 


04440000 
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0020 


04441000 
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0022 


04442000 
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0022 
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0024 
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0024 


04444000 
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0025 
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W26 
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0028 


04445200 
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0031 
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T" 


0014 


04447000 
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0037 


04448000 
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0038 


04449000 
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0040 


04450000 
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0044 
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0056 


04455000 
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0058 
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• . •« 



»* 



BfGIN 

IF INFC.NExTRA X PARMS THEN 

begin xta «• infb; flogud; 
farms «■ infc.nextRa; 

end; 
t •• infc.adinfo; 
for i * 1 step 1 until parms do 

IF NOT(PARMUlNKtI] « EQV 

EXTRAINFOt(T+I-l).IR*CT*I-l),IC3. CLASS = LABELlO) THEN 
BEGIN IF PARMLlNKtl] « THEN XTA * "* » 
ELSE ""XtA «• GEf(PARMLlNK[IUl)i 
FLAGC40); 
END; 
EnD 
El SE 
BEGIN 

IF PARMS * THEN INFC * -INFC ELSE 
INFC * -(INFC 4 PARM5CT0NEXTRA] 

4 NEXTEXTRA[T0ADINF03); 
PUT(FNEW+2#iNFC); 
FOR I * 1 STEP 1 UNTIL PARMS 00 

BEGIN 

EXTRAlNFOtNEXTEXTRA.IR#NEXTEXTRA,IC] * & 

(IF PARMLINKCI3 » THEN LABELID ELSE 0MT0CLASS3; 

NEXTEXTRA ♦ NEXJEXTRA + H 
END* 

end; 
if el x «■ elx+1 > maxel then begin flagc128)j elx ♦ 

IF OEBUGToG THEN PLAQR0UTlNE(""5ECLAR M #*»EPARMS«,F- 

end oeci.areparms; 



) 





; 



eno; 
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proceoure iolist(level); 
begin alpha laor2#t; 



a; 



real level; 



START 



BOOLEAN 

integer indx*i»bdlInk,nsubs; 

label round* x it, error* loop* scram; 
integer stream procedure cntnamcioen); value iden; 
begin label xit; 

si le loc iden; si «■ si + 3; tally i» i; 

«5<IF SC ■ " " THEN JUMP OUT TO XlT;SI t« Sl + i;TALLY 

yiti cntnam ** tally; 
End cntnam; 



f« TALLY+1); 



IF DEBURTOG THEN FLAGROUTINEC " 
ROUND I DESCREO «■ TRUE; 

LOCALNAME I* FALSE; 
IF GLOBALNEXT » SEMI THEN GO TO 



I0L"*"IST "*TRUE ) ; 



xit; 
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'USTlD*i)J 



IF GLOBaLNEXT « STAR THEN 

BEGtM if not nameoesc then 

TV 1= ENTERCO&LlSTSlDCTOCLASS^LlSTlDr 
LOCAtNAME l« TRUE; NAMEDESC l« TRUE; SCAN; 

END] 

if globalnext ■ id then 

begin ltndx «• fnextj 

scan; xta •• getclindx+d; 

if globalnext ■ equal then xreturn to caller 
bfgin if (llnfa*get(getspace(llnox))). class t varid then flag(so); 
scram! if (level * level-1) < then fl0g(97)j 

GO TO XIT; 

end; 



If 
If 



if 



If oatastmtflag and splin 

bfgin 

if booleancGetclindx), 
if splink>1 then 

if get<lindx).add 
lindx ♦ getspacec-lind 
if boolean(getclindx). 

EnD ELSE LINDX * GETSPACE 
IF T * (LlNFA*GET(LINOX)) 
XREF THEN ENTERX(XTA#C 
GLOBALNAME OR LQCALNAM 
IF NAMEINDl"" NAMEIND + 1 
ELSE NAMLISTCNAMEIND] 
T ■ ARRAYID THEN 
IF GLOBALNEXT * LPAREN 
BEGIN IF SPLINK * \ THE 
BEGIN_ 

EMifLcoy; 

EMITPAIR(LADDR «• 

EMITOCFTC); 

EMiTdES"CLlT(2>; 

EMlTO(lNX); 

EMITO(LOD); 

END ELSE EMITPAIR 
NSUBS la (T U GET 
IF GLOBALNAME OR LO 
BEGIN 

IF NSUBS GTR savesub 
IF NSUBS GTR NAMLIST 

"' " ffa-RLTSTTNAME 

indx i» -1; 

INFA I* GET(NEEDC W . 

BDLINK » p"T. ADTnFO* 

ENOI 

IF BOOLEAN CLINFA.F 

BEGIN " " """ 

IF T LSS TH 
ELSE EMITNUMC 
E"«lTOFOCXlT(L 
EMITOCCTF); 

END ELSE EMITNUMCT. 

IF GLOBALNAME OR LO 
FOR I »« 1 STEP 1 



K i THEN XDECLARE OWN 
FORMAL) THEN FLAG(147); 
R > J0?3 THEN FLAG(174); 

x); 

EQ) THEN FLAG(168); 
(LINDX); 

.CLASS > VARID THEN FLAG(50); 

2&LINFAC15I15I9]); 

E THEN 

GTR LSTMAX THEN FLOG C 161) 
»■ XTA * CNTNAM(XTA)£9I45I33; 

THEN 

N 

linfa.addR#lod); 



( L ADDR *L INF A . ADDR#lOb ) J" 

(Lindx+2)),nextra; 
calname then 



S THEN SaVESUBS «« NSUBS; 

[03 THEN NAMLISTCO] t* NSUBS; 

VfJSl . II I "ST" I ■ MSUBST - - " 

subar w #blockid)),addr; 

p "■" - - - 

ORMAL) THEN 

EN EMITOPDCLIT(T.SIZE) 

T , S I z e ) ; 

ADW - I ">7" ~~' 

basensize); 
calname then 
until nsubs do 





04493100 T 


0010 




04493130 T 


0011 




04493200 T 


0013 




04493300 T 


0017 




04493350 T 


0021 




04494000 T 


0021 




04495000 T 


0021 




04496000 t 


0023 




04497000 T 


OO25 


• 


04498000 T 


0026 




04498100 '"t 


0036 




04498200 T 


0034 




04499000 T 


0037 




04500000 T 


0037 




04300100 T 


0037 




04500200 T 


0038 




04500300 T 


6039 




04500310 T 


0041 




04300320 T 


0042 




04500400 f 


0046 




04500420 T 


0047 




04500500 T 


0050 




04500600 T 


0051 




04500655 T 


0055 




04500700 T 


0038 




04560725 t 


0666 




04100750 T 


0063 




04501000 T 


0067 




04562000 f 


0068" 




0450 300 T 


0069 




04503004 T 


0070 




04501008 T 


007T 




04503010 T 


007? 




04503020 T 


0074 




04503630 f 


0074 




04503040 T 


0073 




04503050 T 


0076 




64563655 T 


0077 




04503100 T 


0079 




04503125 T 


0082 




04561156 f 


008 4 




04503160 T 


0084 




04503170 T 


0086 




04W3T75 ? 


oow 




04503180 T 


009i 




04503190 T 


0092 




ff43UJ?ffO T 


~00?5 




04503225 T 


0097 




04504000 T 


0097 




"~ "oi»505oiro"r 


"OOTT 




04505200 T 


0098 




04506000 T 


0099 




^430T0DU"T" 


0104" 




04508000 T 


0105 




04509000 T 


0106 




045090YO T 


0108 




04509100 T 


0109 



*, 



»• 



•' 



begin. if. i l» extrainf0ccb0linki«bdlink-1).ir/ 
bdlink.ic] lss then emitopdclit ( t ) 

else emitnum(t); 
emitnumcindx j* indx+1); 
emitdesclitcinfa)* 
emito(std); 
end; 
emitlc18); emito(std); 

END ELSE 

BEGIN SCAN) 

A *(IF GLOBALNAME OR LOCALNAME 

THEN SUBSCRIPTS(LINDX,4) ELSE SUBSCRIPT5UINDX#2) ); 

scan; 

ENO 

else emitnuinox); 

if globalname or localname then 

bfgin emit0p0clitc18); emitnum( nameind) ; 

EMIT0(43»DIA); EMITD( 3»DIB ); EMlTDt 15*TRB ); 
EMITLC18); EMITO(STD); 

End; 

EMITLCLINFA.CLASNSUB&OC 44147113); 
EMITL(20); EMITO(STD); 
IF ADR > 4083 THEN 

BEGIN ADR*AOfm; SEGOVF END ; 
BRANCHLIT( LI START* TRUE); 
EMITL(19); EMlTO(STD); 

emito(Rts); adjust; 

go to loop; 
end; 

if gl08alnext 9 lparen then x recurse on ( 
begin emItb(-i»false>; 

AnJUST; 

ladr2 ♦ (adr ♦ d&laxctoaddrj&nsegttosegno]; 
scan; level * level ♦ 1; 

lOLiSf CLEVELJJ" " 

IF GLOSALNEXT * EQUAL THEN X PHONY IMP DO 
BFGIN BR_ANCHEStT ♦ LADR2.ADDR] * BRANCHx; 

branch* ♦' fi 

IF GLOBALNEXT i RPAREN THEN GO TO ERROR; 

scan; go to loop; 
end; 

IF XREF THEN ENTERX(GET(LINDX+1)#ULINFAC15I15«9]); 
IE LINFA^SUBC^ASS >_R£ALTYPE 1_HEN 
BFGIN XTA * GETCLINDX ♦ 1)1 

FLAG(84); 
EmDJ 
EMiTBCM»FALSEi; 

LA0R3 * lax; 
ftxB(lADr2,addr); 

dfScreo * false; 

scan; if exprctrue) > realtype 

emitn(lindx); _„emit0(_stdj; 

em i t b ( l a d r 2 » false ) ; 

if globalnext * comma then go to error; 

aqjust; _ 

LADR4 «■ (ADR + i )*NSE6tTOSE(SN03 J 

scan; if exprctrue) > realtype then flag<102) else emito(GRTr); 



THEN FLAG(102); % INITIAL VALUE 



04509150 T 


0111 




04509200 T 


0113 




04509250 T 


0116 




04509300 T 


0117 




04509350 T 


0119 




04509400 T 


0120 




04509450 T 


0121 




04510000 T 


0123 




04511000 T 


0124 




04512000 T 


0124 




04513000 T 


0125 




04513100 T 


0126 




04514000 T 


0131 




04515000 T 


0131 




04516000 T 


0131 




04516100 T 


P% 1.2 




04516200 T 


0134 




04516300 T 


0136 




04516350 T 


0139 




04516400 T 


0141 




04517000 T 


0141 




04518000 T 


0143 




04518100 T 


0144 




04518200 T 


0145 




04519000 T 


0147 




U45T0UDD T 


0148 




04521000 T 


0150 




04522000 T 


0151 




CT3T JOTO "j"' 


0TT3 




04524000 T 


0153 




04525000 T 


0153 




04526000 T 


" 0T55 




04527000 T 


0156 




04528000 T 


0159 




04529000 T 


0161 




04530000 T 


0162 




04531000 T 


0163 
0165 




04532000 T 




04533000 T 


0166 




Q4Sl.4ilQ.fi. j. 


-0,167 




04535000 T 


0168 




04535500 T 


0168 




04536000 T 


Q172 




04537000 T 


0173 




04538000 T 


0176 




04539000 J 


0176 




04540000 T 


W6 




04541000 T 


0178 




04542000 T 


0178 




04543000 T 


0180 




04544000 T 


0180 




04545000 T 


0183 




04546000 T 


0185 




04547000 T 


0186 




04548000 T 


0187 

0188 




04549000 T 




04550000 T 


0190 





H 



LOOP* 



EMlTBaAQR2#TRUE); 

EMlTB(-l»FALSE); 

LADR5 «■ LAXJ 

FtXB(LADR3); 

IF GLOBALNExT * COMMA THEN EMITL(I) 

else begin scan; if exprctRue) > realtype then flagcio2); end; 
emitv(lindx); emlto(add); 
EmITnclindx); emttotsnd); 

emitb(ladr4#false); 
fixbcladr5); 

if globalnext * rparen then scan else 
tf globalnext « semi or globalnext m slash then go to xih 
if globalnext » rparen then go to 
if globalnext * comma then 

BEGIN SCAnJ 

IF GLOBALNEXT * SEMI 
TO ROUNOJ 



go to error; 
slash then go 
scram; 



THEN GO TO ERROR; 



GO 

end; 
error« xta * name; 

FLAGC94); 

tf globalnext 

scan; 

tf globalnext 

fRROrtog * true; go to xit; 
end; 
if globalnext * rparen then go to scram else 

if globalnext * slash then go to error; 
xit » if oebugtog then flagroutine c" i0l m »*ist 
end iolist; 



* SEMI THEN GO TO XlT; 
■ 10 THEN GO TO ROUND; 



•NFALSE) ; 



132 IS 



04551000 T 


0194 


04552000 T 


0195 


04553000 T 


0196 


04554000 T 


0197 


04555000 T 


0178 


04556000 T 


0199 


04557000 T 


0203 


OU550tJtJU T 


0205- 


04559000 T 


0206 


04560000 T 


0207 


04561000 T 


02U6 


04562000 T 


0210 


04563000 T 


0213 


0456*0D0 "T 


0217, 


04565000 T 


0215 


04566000 T 


0216 


04567600 T 


0217 


04568000 T 


0218 


04569000 T 


0218 


04570000 T 


0219 


04571000 T 


0220 


04572000 T 


0221 


04573000 T 


0222 


04574000 T 


0223 


04575000 T 


0224 


04576000 T 


0224 


04577000 T 


0225 


04578000 T 


0227 


04579000 T 


0230 


236 LONG* 


NEXT SEG 



INTEGER 
VALUE Ft 
BEGIN Cn 
THE FILF 
IF DEBUG 
EMITLCIF 

IF T ♦ G 

BEGIN M 
BUMPPRT) 
I * GLOB 



PROCEDURE F 
LENAME#FILE 
MMENT THIS 

FILENAME.. 
TOG THEN FL 

NOTOPIO TH 
LOBALSEARCH 
AXFILES * M 



ilecheck(filename#filetype>; 
type; alpha filename; integer filetype; 
procedure returns the prt cell allocated to 
. a cell is created if none exists; 

AfiROUTINEC" FILEC"#"HECK "#TRUE ) * 
EN 2 ELSE 5); % FOR 10 DESCRIPTOR 
(FILENAME) ■ THEN X FILE UNDECLARED 
AXFILES ♦ i; 



ALENTER(-04(FiLECHE:CI<*PRTS)ttOADDR3 

&FlLElDCT0CLASS],FILENAME)+2; 

nk ♦ filetype; 
Already exists 

♦ADDRI 

AGROUTINEC w FlLEC'S^HECK %FALSE) 



INFQCI«iR#I.IC3. LI 
END ELSf % FILE 

filecheck * getct) 
if oebugtog then fl 
end filfcheck; 



04580000 
04581000 
04582000 
04583000 

04583010 
04564000 



04585000 
04586000 
04586500 
04587600 
04588000 
04589000 
0459$0ir5 T 
04591000 T 
04591010 T 
04592000 f 



0513 
0513 
0513 
0513 
0513 
0516 
0518 
0520 
0522 
0526 
0528 
0530 
05T5 
0535 

0541 



procedure inlinefile; 

begin chmment "this" procedure generates the code to bring up 
if thf file is an integer then filecheck is called* if 



the: file... 

THE FILE 



04593000 T 0546 
04594W0 T 05«6 
04595000 T 0546 



< .' 



IS NOT AN 

analysis; 
real test; 



INTEGER THEN IN-LINE CODE IS GENERATED FOR OBJECT TIME 



COMME 
TO AN 
IF OE 
TEST* 
IF EX 
ELSE 



WAS A 



INL 



COMMENT 



I 



end; 

IF DE 

ENO I 



NT IF LAST INSTRUCTION 

INTEGER FILE ID; 
0UGTOG THEN FLAGROUTlNEC " 
ADR ; 

PR(TRUF)>REAL'TYPE THEN FLAGU 
IF EXPRESULTsNUMCLASS THEN 

BEGIN XTA*NNEW ; 

IF EXPVALUEJ51.095 OR EXPV 

ELSE BEGIN 

IF ADR<tEST THEN % 

EMITO(DEL) 

ELSE adr*test; 
TEST«-SPCLBiN2DECCCl«- 
IF XREF THEN ENTERX( 
FMITDESCLITCFILECHEC 
IF DCINP 

end ; 

ELSE 

INTEGER FILE... GENER 
BEGIN EMITPAIR(17#ISN) ; 
IF FItEARRAYPRTaO THEN BEGIN 
EMlTOPDCLlT(FiLEARRAYpRT); 

emItocdup); emitlcoj; em 
comment need 7 consecutive 

F aDR * 4082 THEN 
BfGIN ADR ♦ ADR ♦ I) 

segovf; 
end; 

EMlTL(3 + FILEARRAYPRT,t38H3) 

emitocbfo; 

emitlcd; emItocchs); em 

EmITO(LOD); EMITL(IF NOTOP 



END 
NOT 



LIT CALL THEN WE HAVE SEEN REFERENCE 

IN M ,"EFILE "'TRUE ) * 
02) 

ALUES0.5 THEN FLA6C33) 

EX PR GOT SEGOVFL--ASSUME NO WRAPAROUND 



EXPVAlUE); 

TEST*ltTOCE3»0&FlLEIDCTOCLASS3) t 
KC 04" , "U2 » 42 I6J&TESTC 18 U2I303* 
UT THEN 12 ELSE 2)) * 



ate object time code; 
bumpprt;filearrayprt*prts eno; 



ITOCEqUL)* 

syllables; 



;«c0nsider possible xrt 
% branch around termination code 
itopdclitcfilearrayprt); % inv inoex 
10 then 2 else 5); emitoccdc); 



BUGTOG then 
nlinefile; 



FLAGROUTINEC" INLIN1"#"EFILE "'FALSE) J 



045.94.0.00 
04597000 
04598000 

START OF SEGMENT 
04599000 
04600000 

04650010 
04601000 

04602000 
04602500 
04603000 
04603500 
04604000 
04664010 
04604020 
04604025 
04604030 
04604040 
046 04050 
04604060 
04604070 
04604080 
04605000 
04606000 

04607000 
0460800b 

04609000 
04610000 
04611000 
04612000 
04613000 
04614000 
04615000 
04615100 
04616000 
04617000 

04618000 
04 61 8010 

04619000 

133 IS 61 LONG 



0546 
0546 
0546 
********* 

0000 
0000 
OOOQ 
0002 

0002 
0004 
0008 
0010 
0012 
O0T6 
0016 
0017 
0019 
0021 

0025 
0028 
0031 
0031 
0031 
0031 
0032 
0038 
0039 
004J 
0041 
0042 
0043 
0044 
0044 
0046 

0046 
0049 
0053 
0053 
0055 
NEXT Seg 



133 



procedure filecontrol(n); value n; real nj 

begin comment compiles all calls on algol file control; 

eod$*true ; 

executable j 

scan; emitocmks); 

EMITLCN); EMiTLCO); 

notOpio ♦ true; 

inlin.efile i - 

emitlc4); emit0pdclitc14); 

notopio * false; 

end filfcont*ol; 



0461 
0461 
0461 
0461 
0461 
0461 
0461 
0.461 



0461 
04*1 
0461 



9010 

9020 
9025 

9027 
9030 
9040 
9050 
9.060 



9070 T 
9080 T 
9090 T 



0546 
0546 
0546 
0547 
054.8 
0549 
0551 

0552. 
0553 
0554 
0556 



PROCEDURE FORMATERJ 

BEGIN 

COMMENT 



FORMATFR COMPILES A PSEUDO CODE U 
FORMATING ROUTINES TO PRODUCE DE 
ONE WORD OF PSEUDO CODE PROOUCED 
ADDITION ONE WORD IS PRODUCED FO 
SLASH QROUP. 

THE 47TH BIT OF THE FIRST WORO I 
ELEMENT PHRASES IN THE FORMAT ST 

THERE ARE FOUR GROUPS O.F PHRASES 

F» E> D# G » 



GROUP 1 

GROUP 2 ■ I* J» 

X# P 

GROUP 3 « H 

GROUP 4 b )» / 

WORD FOR GROUP 

CODE "* 

REPEAT m 

WIDTH * 

OEDIMAX a 

WORD FOR GROUP 
CODE * 
REPEAT m 
WIDTH * 
SIGN * 
FOR P» "X " 
Pi SIGN a 

WORD FOR GROUP 

CODE * 

REPEAT » 

HI STRING 

REPEAT 

WORD FOR GROUP 

CODE * 

REPEAT • 

LINK * 

DECIMAL * 
CNTROL 
)J 



A» 0# L* T# C# 



SED BY THE OBJECT TIME 
SIRED I/O. USUALLY* THERE IS 
FOR EACH EDITING PHRASE. IN 
R EACH RIGHT PARENTHESIS AND 

S SET IF THERE ART ft ST 

ATEMENT, 

I 

REPEAT WIDTH DECIMAL 

REPEAT WIDTH 

REPEAT SPECIAL PURPOSE 
CONTROL REPEAT LINK 



IS 
C H 5] 
C 61121 

C18U21 
[301123 
21 

t 11 53 

C 61121 

[18U21 
UH 13 
AND ""T REPEAT * 1 
SIGN OF SCALE 
31 

iii si 

t 6112] 
STARTS AT BIT 18 
"■ NUMBER OF "STRIN 

at 

..[ U 5.1 

[ 61121 
C18M21 
[301121 
[471 11 

WORO - 1 



AND CONTINUES TO END OF STRING 
G CHARACTERS 



/I 



LINK NUMBER OF 
LEFT PAREN 
REPEAT * REPEAT OF ASSOC 
OUTER MOST RIGHT PAREN 

A* DECIMAL *_0 

B . L I N K S " T LEFT P A R E N 
REPEAT ■ NUMBER OF SLASH 



BACK TO 1ST PHRASE AFTER 
IATED LEFT PAREN 

OF L XS if PREVTOUS RIGHT "PAWEN 

ES. 



} 



DEFINE APHASE ■ 6 *r 



VPHRASE * 30 *, 


LPPHRASE 


■ 29 *» 


CPHASE « 


15 ## 


DPHASE * 


14 *> 


EPHASE ■ 


13 ## 


FPHASE « 


12 ## 


GPHASE ■ 


11 ## 


HPHASE ■ 


2 *» 


IPHASE « 


10 ## 



04620000 ' 


r 0556 


04621000 ' 


r 0556 


04621500 ' 


r 0556 


04622000 ' 


r 0556 


04622500 ; 


r 6556 


04623000 ' 


r 0556 


04623500 ' 


r 0556 


04624000 • 


f 0556 


04624500 ' 


r 0556 


04625000 ' 


r 0556 


04625500 1 


r 0556 


04626000 ' 


r 0556 


04626100 i 


r 0556 


04626500 i 


r 0556 


04627000 1 


r 0556 


04627500 1 


r 0556 


4628000 1 


r 0556 


04628500 1 


r 0556 


04629000 1 


r 0556 


04629500 1 


r 0556 


04630000 1 


r 0556 


04630500 1 


r 0556 


04631000 1 


r 0556 


04631500 1 


r 0556 


04631600 1 


• 0556 


04 6 3 1625 1 


t 0556 


04631650 1 


' 0556 


04632000 1 


r 0556 


O4T325O0 1 


r 0556 


04633000 1 


r 0556 


04635500 1 


* 0556 


046~3'56'ff0" 1 


f 0556 


04636000 1 


r 0556 


04636500 1 


r 0556 


O46170W 1 


'0556 


04637500 1 


r 0556 


04638000 1 


r 0556 


046 38500 "' 


r 0556 


04639000 1 


' 0556 


04639500 1 


r 0556 


04639600 1 


r 0556 


04640000 1 


' 0556 


04640500 1 


r 0556 


04641000 1 


' 0556 


04641500 1 


f 0556 


04642000 1 


r 0556 


0464J50U 1 


• 0556 


RT OF SEGMENT * 


,********* 


04642510 1 


' 0000 


04642520 1 


' TWO 


04642600 1 


• 0000 


04643000 1 


0000 


"04643500 1 


• 0000 


04644000 1 


' 0000 


04644500 1 


0000 


046 (• 5 000 i 


• oooo 


04645500 1 


0000 
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JPHASE ■ 9 #, 

LPHASE * 8 t» 

OPHASE s 7 #* 

PPHASE s 3 ## 

TPHASE » 5 #* 

XPHASE » 4 #* 

RTPARN b t* 

SLASH 9 1 #, 

TOCODE * 1*431 5 

TOREPEAT » 6136112 

TOWIOTH "■' 181 36 J 12 

TOLINK « 18«36« 12 

TOOECIMAL * 30J36U2 

TOCNTRL '■ 471471 1 

TONUM 9 421431 5 

TOSIGN » 411471 1 

WSA ■ LSTT #; 

REAL J* TI 

LABEL KK*SL#FL I 

format fmc//"phrase# 

".[4111] .[4214] 
M ,[46UJ* ,[4612] 



#» 

*> 
#» 

*, 
*> 

i» 
** 

*» 



CODE REPEAT 



WIDTH DECIMALS X2* 



.[4215] ,[44«1] 
•C47I1]"/) I 



[45U]"*X2* 



integer d,i, code*repeat, width, oecimal*total*slcnt»savlastlp* 
parenct#savtotali 

boolean VRB,ASK I 

BOOLEAN LISTEL* HF* ZF» QF* PF* MJNUSP, FIELD* STRINGFI 

BOOLEAN COMMAS* DOLLARS* PLUSP* SfRI 

LABEL ROUND, NOPL ACE* NgM,NuL# LP* R p #ENOER,NOENO#F ALL* SEMIC#NULU 

LABEL NFWWO* ROUNDU 

ALPHA STREAM" PROCEDURE GEtCHARCNCRV* f5"j VALUE "Nff'RVX" 

BEGIN ST * NCRVI DI * TI DI * 01*71 OS «• CHRI GETCHAR * SU 

END get^har; 



START 



135 IS 



04646000 T 
04646500 T 

04647000 T 
04647500 T 
04648000 t 
04648500 T 
04649000 T 
0T6 495015 f 
04650000 T 
0a650500 T 
046T1060 T 
04651500 T 
04652000 T 
04652500 f 
04653000 T 
04653500 T 
04654066 T 

04655000 T 
04655J00 T 

64655466 T 
OF SEGMENT 
04655410 

64655420 

29 LONG 
04655500 
04656666 

04656100 
04656500 

64656606 
04657000 
04657100 
04657560 
04658000 
04658500 



0000 
0000 
0000 



0000 
0000 

owe 

0000 

0000 



0000 
0000 
0066 

0000 
0000 
6666 

0000 
0000 

0066 

********** 135 
T 0000 

T 6666 

, NEXT SEG 134 
0000 

0666 
0000 
0000 

oooo 

0000 

oooo 



oooo 
qooi 



BOOLEAN PROCEDURE CONTINUEI 

BEGIN 

LABEL LOOP! 

BOOLEAN STREAM PROCEDURE CONTINCCD)! 

BEGIN ST*CDI IF SC X "C M THEN IF SC "it "*"' tHEN'"BE6rN"Sl"*Sl'*5T 

IF SC * " " THEN IF SC * "0" THEN BEGIN TALLY*U 

CONTIn «• TALLY END END 

End of contini 



BOOLEAN STREAM PROCEDURE COMNT(CD*T)l VALUE TI 

BEGIN LABEL L"T 

SI*C0l IF SC » "C" THEN BEGIN T(SI*SI*1I IF SC-"-" THEN 
TALLY*1 ELSE JUMP OUT TO DI TALLY*tl L« END! COMNT*TALLYI 

END' COMNitr 



04659000 T 


0002 


04659500 T 


0002 


04660000 T 


0002 


START OF SEGMENT ********** 


04660500 T 


OOOO 


04661000 T 


OOOO 


04661500 T 


0002 


04662000 T 


0004 


04662500 T 


0005 


04663000 T 


0006 


64663~§0~0 T 


D006 


04664000 T 


0006 


04664500 T 


0009 


64665000 f 


0X5 1 i 



136 



boolean stream procedure dccontin (cd ) ; 

begin st«-cd; if sc * "•" then tally «• lj dccontin*tally; 

end dccontin; 



04665500 T 0012 
04666000 T 0012 
04666500 T 0014 



LOOP* IF NOTCCONTINUE «■ 

IF DCINPUT AND NOT 

IF NEXTCARD<4 

ELSE IF NEXTCARD»7 

ELSE IF NEXTCARD<4 THEN 

ELSE IF NEXTCARD-7 

THEN TFCIF NEXTCARD < 4 

COMNTfCB'DCINPUT 

ELSE IF NEXTCARD 

COMNT(DB#DCINPUT 



TSSEDITOG OR FREEFTOG THEN 
THEN DCCONTIN(CB) 

THEN DCCONTIN(OB) ELSE 

CONTIN(CB) 

THEN C0NTINCD8) ELSE 

THEN 

AND NOT TSSEDITOG OR FREEFTOG) 

m 7 THEN 

AND NOT TSSEDITOG OR FREEFTOG) 



CONTIN(TB) 



CONTINCTB)) 



END 



ELSE COMNTCTB#0) AND NEXTCARD*6) THEN 
BEGIN 

if readacard then if listog then printcard; 
gO to loop; 

END; 

continue; 



04667000 
0466T3D0 
04667600 
04668000 
04668500 
04668600 
04669000 

04669500 
04670000 

04670100 
04670500 
04671000 
04671500 
04 672000 
04672500 
04673000 



136 IS 59 LONG, 



0015 
0016 
00J9 
0021 
0026 
0030 
0035 
0038 
0041 
0044 
0048 
0052 
0053 
0055 
0056 
0056 

NEXT SEG 



134 



STREAM PROCEDURE STORECHARt ARY,PQSIT#CHAR); VALUE POSIT* 

BEGIN ST"'"*CH"*'RJ"""5r"'* ST* 7"; " 

Ol * ARYI 01 * DI + POSIT; 

ds *■ chr; 
end storechar; 



alpha stream procedure backncr(nCrv); value ncrv; 

BE 6 1 N "$ T *NCR VT "^T~^5I^T~ffTCT?WCT'^~5Il^lire'*^JCinnrRT 



04673500 T 
04 67 W 00 T 
04674500 T 
04675000 T 
04675505 T 


0002 
0002 
0003 
0004 
00*04 "" 


04676000 T 
04676500 T 


0004 
0004 



COMMENT ******** START OF CODJE *************** 

if xt a r; tabT« 'TussKS"T(?f!rn^'^ifrcLsr 

IF 0* SfARCHCLABL) * then 

D* En TER (0 I FO RMA TIDtTOCLASSl , LABL) ELSE 

IF GfT(D). CLASS * FORMATIO THEN BEGIN D*OIFLAGC 143") 

IF XREF THEN ENTERX CLABL* 14F0RMAT ID t TOCLASS] ) J 

LABL ♦ BLANKS; 

NCR ♦ backncrTncr); 

WSAtOl * TOTAL * U 

roundu xta * blanks; 

ROUNDJ wCR * GETCHARCnCP'T ); 

IF T ■ "3" THEN GO TO NOPLACE; 



end; 



04677000 T 
^46T710~~TT 
04678000 T 
04678500 T 



i>«T79iyo~~r 

04679400 
04679500 

546800W 
04680500 
04680700 
0468T0CT0 
04681002 



0006 

0009 
OOil 



0019 
0021 



0024 
0026 
0026 
0029 



& XTAtl2tl8l30]J 



OR T* M <") 



xTA * T 
T«-IF CT»"& 

(HOLTQG OR NOT(HF OR 
T F (Ta M ? M OR Ts"l") AND 

ELSE t; 
TF NOT (HF OR STRINGF) THEN 

IF T » " " THEN GO TO ROUND 
ELSE IF T«%" THEN GO SL i 
TF HF THEN 
BEGIN 

STORECHARCWSACTOTAL3»I*T); 



ANO 

STRlNGF)) THEN "♦" ELSE 
(HOLTOG OR NOT HF) THEN 



1 i THEN 



> LSTMAX THEN" 

go to round; 

GO TO NULU 



GO TO NUL; 



slcnt+i; go To round; end 



IF HF * REPEAT * REPEAT - 
IF I * 1+1 ■ 8 THEN 
BEGIN IF TOTAL * TOTAL +1 
WSAtTOTAL] «• I «■ 0; 

end else 60 to round else 
fnd; 

if not stringf then 
if slcnt > then 
if t . v m then begin slcnt ♦ 

ELSE 

BFGIN WSAtTOTAL] ♦ & SLCNT C TOREPEAT 3 & SLASH tTOCODE] ; 
IF NOT STR THEN 

IF REPEAT < 16 AND WS AtTOTALM] , t42 1 6 ] m THEN 
WSACTOTAL + TOTAL-1] * WSAtTOTAL] * SLCNT [42144 » 4] 
& l[46H7ilJJ 
COMMAS«-00LLARS«-B00LEAN(SLCNT*O)i NCR*BACKNCR(NCR) ; 
GO TO NULi; 

end; 

TF NOT QF 
BEGIN IF 
NCR * 
SAVTOTAL *■ 
WSAtTOTAL! 



then if t ■ "•»" then if stringf ♦ not strlngf then 
code > 4 then begin strlngf * false; 
backnCRCncr); 60 to endEr End; 



total; j*o; i*a; qf * 

* & HPHASEtTQCODEl; 



true; 



WS AT SAVTOTAL] i "4 
TOTAL «■ TOTAL - 



CASE T 
BEGIN 

BEfilN 
NiiMI 



GO TO ROUNdj 
END ELSE 
BEGIN 

WSAC SAVTOTAL] " * 
IF I ■ 9 THEN 

code ♦ hphase; 
go to ender; 
end; 

IF STRINGF THEN 
BEGIN 

STORECHARCWSAtTOTAL]»I>T); 

j «• j + 1; jjf ♦ false; 
ip i ♦ i+i ~i a then 

BEGIN 

... IE J.Q.IAk_*_TOTAk_+i 
I * WSAtTOTAL] * 0; 
EnDj 

g0_-i0-rjduno; .. 

end; 

OF 



J £ TO REPEAT I ; 

i; 



> LSTMAX THEN GO TO NULI 



zf ♦ true; 

DECIMAL * 10 



% 



x DECIMAL + T; 





.04681004 T 


003Q 






04681010 T 


0032 






04681020 T 


0033 






04681030 T 


0037 






04681060 T 


00 4 j 






04681100 T 


0042 






04681120 T 


0043 






04681140 T 


6645 






04683000 T 


0046 






04683500 T 


0047 






64684000 T 


0047 






04684500 T 


0049 






04685000 T 


0051 






04685500 T 


0053 






04686000 T 


0056 






04686500 T 


0058 






04687500 T 


0058 






04687510 T 


0058 






04687520 T 


0059 






64687530 T 


0066 






04687550 T 


OO63 






04687560 T 


0063 






04687580 T 


0067 






04687590 T 


0068 






04687600 T 


007J 






04687620 T 


0075 






04687650 T 


0076 






04687655 T 


0080 






64 687666 t 


0080 






04688000 T 


0080 






04688500 T 


0083 






046 89000 t 


3086 






0*689500 T 


0088 






04690000 T 


0091 






64696500 T 


6693 






04691000 T 


0094 






04691500 T 


0094 






46 92 (JO T 


0094 






04693000 T 


0097 






04693200 T 


0099 






64693566 T 


6166 






04694000 T 


0101 






04694500 T 


OlOj 






04695000 T 


0101 






04695500 T 


0101 






04696000 T 


0103 
0T05 






04696500 T 






04697000 T 


0107 






04697500 T 


__oio? 






04698000 T 


0109 






04698500 T 


0111 






04699000 T 


Oil* 






04699500 T 


0112 






04707000 T 


0112 






04707500 T 


0112 






04 708000 T 


0112 






04708500 T 


0113 





FL* 



ENn; 

GO TO 
GO TO 
GO TO 

; ; ; 

BEGIN 
BEGIN 

; 

BEGIN 
BEGIN 
BEGIN 
BEGIN 
BEGIN 
BEGIN 



END* 

BEGIN 

BEGIN 



ENn; 

GO TO 

; 

LP I 
BEGIN 



IF ASK THEN 

BEGIN F|_AG(183) t 

DO BEGIN NCR>GETCHARCNCR»T)J XTA*T4XTAC 12 1 18 * 30] END 

UNTIL TX"*" ANO T>9 AND TX" M I 

NCR«-BACKNCR(NCR>; XTA«-BLANKS4XTA[18tl2l301 J 

END 

else: 

IF DECIMAL>4090 THEN BEGIN PlAG(172)J DECIMAL*! END I 

if code ■ then repeat * oeclmal 

else if pf then begin if decimal>width and widthxo and code* 

vthrase then flagc129) end else w toth*declm al j 
go to round; 



num; go to nOM; go to num; 
mum; go to num; go to num; 
num; go to num; go to num; 
; ; ; 

plusp «• true; go to round; end; 
code ♦ aphase; go to noend eno; 



code ♦ cphase; go to noend end; 

code * dphase; go to noend end; 

code * EpHase; go to noend end; 

code * fphase; go to noend end; 

code * gphase; go to noend end; 

if repeat * then fl0gc13o); 

if ask then begin fl0go2 ); go semic end ; 

hf ♦ true; i «■ 3; code «■ hphase; 

WSAtTOTALl ♦ & HPHASEtTOCObE] 4 REPEAT CTOREPEAT] I 

G9 to round; 



X 

X 
X 

X 

X 

% 

% 
X 
X 
X 
X 
X 
X 



2 3 

5 6 

8 9 

* Q 



I > > 



code *■ iphase; go to noend end; 
if code < 11 or c0de*15 then fl0gc134); 
if c0de»0 or pf then fl0g(32) ; 
pf*true; decimals; ask«-zf«-false ; 
go to round; 



X 
X 



I 



rp; 



X & 



X c 

REPEATwO AND ZF THEN FLAG(173) ; 
PARENCT+13 * & TQTALCT0WIDTH3 

n i" else repeat n twt pe at 3 ; 



IF CODE * THEN FL0G(32>; 
IF ASK THEN REPEAT«-«095; IF 
NAMLISTESAVLASTLP * PARENCT 
H IF RE PEATS AND PARENCT>i 
IF ASK THEN 

BEGIN ASK*VRB«-FALSE ; 

ws * rrcrr ali> J?* ipwm as etto c ao n r «ov5tttjrei»e«t t 

IF (TOTAL*TOTAL*l)>LSTMAX THEN GO NUL ; 

end ; 

zr*eOOCEAl^rRETEXT*DECTM*L*OJ 7 " ~~ " 

STR * true; 
go to roundi; 



ENd) 

; ; ; 

BEGIN 
BEGIN 
IF COM 



X < ♦ x 

code*jphase; width*-i; go noend end ; x j 

■ jj K" ■ 

MAS OR CODE^O THEN BEGIN FLAGC32); C0MMAS*TRUE END 



04708510 


T 


0115 


04708515 


P 


0116 


04708520 


T 


0117 


04708525 


T 


0121 


0«70*530 


■7 


0125 


04708535 


T 


0128 


04708540 


T 


0128 


04 70*55 


T 


0128 


04709500 


T 


0131 


04710000 


T 


0133 


04710500 


..... 


0J38 


04712000 


T 


0142 


04712500 


T 


0142 


047 1 3000 


T 


0-J43 


04713500 


T 


0144 


04714000 


T 


0146 


04714500 


T 


0147 


04714600 


T 


0J47 


04715000 


T 


0149 


04 715500 


T 


0151 


04715600 


T 


0151 


04716000 


T 


0152 


04716500 


T 


0154 


04717000 


T 


0156 


04717500 


T 


0158 


O47TBO00 


T 


0159 


04718100 


T 


0161 


04719000 


T 


0163 


04719500 


T 


0166 


04720000 


T 


0169 


04720500 


T 


0169 


04721000 


T 


0176 


04721500 


T 


0172 


04722000 


T 


0175 


04722500 


T 


0177 


04723000 


T 


0180 


04723500 


T 


0180 


0472400° 


T 


0181 


04724500 


T 


0181 


04725000 


_.T._ 


.01.81. 


04725566 


T 


0182 


04725550 


T 


0184 


04726000 


T 


0187 


04726500 


T 


0190 


04726510 


T 


0195 


04726520 


T 


0196 


~0Tr7?653tr 


T 


0197 


04726540 


T 


0201 


04726550 


T 


0203 


TT472750O ~T 


~02tJ3 


04727600 


T 


0205 


04728000 


T 


0205 


04728500 


T 


O?0fl 


04729000 


T 


0208 


04729500 


T 


0208 


04730030 


T 


0211 


04730100 


T 


0211 



m 



KKt 



SL« 



ELSE 



BEGIN .CDMMAS*TR.U£ ; 

DO BEGIN NGR*GETCHAR(NCR*T); 



XtA«.'tlXf Atl2ll"ai"36j' END 



IF (K17 OR (T>25 AND 

THEN BEGIN FLAGC32) I 

IF T»"*" OR T<10 

end ; 
ncr*backncr(ncr); x f a •• b l a n k s « xt a c 1 8"l 121 30] ; 

enO ; 



T<33)..0R. <T>42 AND T<50) QR T>57) 
THEN BEGIN DECIMAL*!! SO FL END i 



GO ROUND ; 
ENn OF K I 
BEGIN CODE 

y i 



*■ lphase; go to noend; end; 



% 
% 

X 



N 



& repeatctqwiothjuctorepeatj; 
zf) then fl0gc131); 



X 
X 



DECTMALi«*095J 



BEGIN CODE * OPHaSE) GO TO NOEND; "eND; 
BEGIN WSACTOTAL] «■ & PPHASEC TOCODE 3 
* REALCyRB)£/»2M7u3 

& real(mlnusp)ctosign] 
minusp * plusp * false; 
if (oecimal ■ and not 

GO TO NULl; 

eno; 

> ; 

BEGIN IF DOLLARS OR CODE^O THEN FLAGC32) 
ELSE BEGIN 00LLARS*TRUE; GO KK END ; 
DOi.LARS*TRUE; Go ROUND ; 
ENn OF DOLLAR SIGN i 
IF NOT ASK THEN 

BEGIN 
IF ZF OR "DECIMAL nEQ i" THEN PlAG<185); 

IF CODE»0 THEN REPEAT*DECIMAL 

ELSE IF NOT PF THEN WlDTH*DEClMAL ; 

VRB i« ASK V* LISTEL *'« TRUEJ £0 ROUND; " 

END ELSE BEGIN OEC I MAL «»4095; FLAGC183); 
BEGIN MlNUSP * TRUE; GO TO ROUND; END; 
RPl 

begin if field then begin ncr *■ backncr(ncr ); x ) 
go to ender; end; 
if decimal / 6" then flag (32); 

I * IF PARENCT » 1 THEN IF SaVLASTLP > 1 THEN 2 ELSE 1 

else parenct; 

WSAtfOTALJ*(J*NAMLISTCl3)&CTOm 

« (IF PARENCT * PARENCT-1 m Q THEN 77 ELSE 0) C TQDEC IMAL3; 
IF WSACJ3*C1_I53«LPPHRASE AND PARENCT*0__THEN 

BEGIN WSA[J5,Cifl»i2]*fdtAL-JI WSATTbTAr]V[T8Tr2'i*T0TAL'*J'"j" 

eno ; 
namlist[ij.c6i12] ♦ 0; 

code ♦ hphase; 
go to nuli; 



GO 
X 



Ft END ; 



end; 
; ; 

GO TO 
BEGIN 



X 
X 

X 



round; 

slcnt «• i; 

if code-0 then if ask or zf or 0ecimal>0" then 

BEGIN FLAGC32); ASk«-ZF*BOOLEANCDECIMAL«-0 ) 



> LEQ 

BLANKS 

/ 



IF C0DE<5 THEN IF J""*" THEN GO R0UND1 ELSE 



END ; 



end; 



go round else 

ENDER ; 



GO 



itmm 


an 


04730125 T 


0219 


04730130 T 


0221 


04730 135 T 


0226 


04730137 j 


0228 


04730139 T 


023t 


"04730140 f 


023i 


04730145 T 


0235 


04730150 T 


_._Q23£ 


04730160 'f 


0235 


04730500 T 


0236 


04731000 T 


0237 


04731500 T 


0237 


04732000 T 


0239 


P47J2100.T 


Q2 4.1 


04732500 T 


0242 


04733000 T 


0245 


04733500 T 


0247 


047 34500 T 


0249 


04735000 T 


0250 


04735500 T 


0250 


04735600 T 


0250 


04735610 T 


0253 


04735620 T 


0255 


047356 30 T" 


0256 


04735700 T 


0256 


04735710 T 


0257 


0A735TT5 P 


02T7 


04735720 T 


0261 


04735730 T 


0262 


"047357W T»~ 


02W 


04735750 P 


0269 


04736000 T 


0273 


04736500 T 


6275 


04737000 T 


0276 


04737500 T 


0278 


04737600 t 


0279 


04738500 T 


0281 


04739000 T 


0284 


04739506 t 


0285 


04740000 T 


0290 


04740100 T 


0294 


04740110 t" 


0297 


04740115 T 


0302 


04740500 T 


0303 


04740600 j 


0306 


04742000 T 


0307 


04742500 T 


0307 


04743000 T 


0306 


04743500 T 


0308 


04744000 T 


0J08 


04744106 T 


0309 


04744110 T 


0313 


04744500 T 


0316 


04744505 T 


0319 


04745000 T 


0319 



t 

i 

i 



; x s 

begin if repeat x then flagc32); % t 

code * tphase; 
go to noendj 

ENni 

J % U 

begin vRb*true; code*vphrase; width«--i; go noend end i % v 
; x w 

BEGIN IF REPEAT « O THEN Fl_0G(130); X X 

#p ctQ THEm 

NEWwDl WSACT0TAL3 ♦ & XPRASEC TfiCO'DE 1 & REPEATrTOWIOTH] 

4 ltTOREPEAT] 
& REALCVRB)t42U7U3 
ELSE 

BEGIN 

IF (J*WSA[T0TAL-13),[42I6]>0 OR ( I *J, [ 1 I 5] )«RTPARN 

OR (REPEAfi32 AND IVxPHASE) THEN GO NEIWD ) 

IF I*XPHASE AND C I«-J. U 81 123+REPEAT)S4090 THEN 
WSAtTOTAL*TOTA^-n * J & ICTOWIDTH] 
ELSE IF REPEAT * 32 THEN GO TO NEWWQ 
ELSE WSA[TOTAL*TOTAL-l] * J & REPEAT[ TONUM ] 

& UTOCNTRL3; 
END; 

GO TO nuli; 
ENn; 
; ; x y z 

GO SL j % * 

GO TO LP> * * 

; ; ; * / * 3 " ' 

END OF CASE STATEMENT; 



X ILLEGAL CHARACTER) 



FL0GC13?); 

go to fall; 

ENDERl TF CODE > 4 THE 

rEGIN IF WIDTH* 

IF CODE«V 

BEG 

IF 

DEC 

IF 

END 

ELSE 

IF CODE > 
IF (DEC 
ELSE ELSE 
IF REPIAT 
IF WIDTH. 
WSAtTOTAL 



FND ELSE IF DECIMAL X 
NULU TF PLUSP THEN FLAGC164); 

TF codexvphrase then 

BEGIN 



N 

THEN FLAGC130) ; 

PHRASE THEN 

IN 

WIDTH-M THEN IF PF THEN FLAG< 1 30 JELSE WIDTH* 

IMAL*4094 ELSE 

NOT PF THEN DECIMAL*4094 ; 



10 AND CODE X 15 THEN 
IMA|_ m o AND NOT ZF) OR NOT PF THEN FLAGC133) 
DECIMAL _+ 0) 

"iO~~TMEN reFEAT*!' ; 

WIDTH*0 ; 

C00ECT0C0OE3 & WIDTHCTOWIDTH] 
REPE AT rfOREPE ATT & DEC IM AL [ fGDTC I M i'A'Ll 
REALCCOMMAS) [44147113 
REALCVRB)C42I47I13 
RETL C DULL ARS V 145 1 4Y » 117 
THEN FLAG(32)i 



04745500 T 
04746000 T 

04746050 T 
04746100 T 
04746150 T 
04746500 T 
04746750 T 
04746800 T 
04747000 T 
04747200 T 
0474740TJ T 
04747600 T 
04747700 T 
04747S0XJ t 
04748000 T 
04748800 T 
04749000 T 
04749200 T 
04749400 T 
04749600 f" 
04749800 T 

04750000 T 

04751000 T 

04752000 T 

04752500 T 

0475 3000 T 
04753500 T 
04754000 T 
04734500 T 
04755000 T 
START OF SEGMENT ** 
137 IS 64 LONG* 
04755500 T 
04756000 
04756500 
04757000 
0475.7400 
04757410 
04757420 
04757425 



EN 

-I THEN 

3*04 

I 

& 
& 



O475T43O 
04757440 
04757450 

"04757500 
04758000 
04758100 

"0175F4O0 
04758410 
04756500 
04759DW 
04759100 
04759150 

"047592U0 
04760000 
04760500 
04760550 
04760560 



T 
T 
T 
T 

"t" 
T 
T 
t 
T 
T 

"f 
T 

J 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 



0319 
0319 
0321 

0322 
0322 
0323 
0323 

0326 
0326 
0328 
0329 
0332 
0333 

ttm 

0335 
0335 
0339 
0343 
0346 
0349 
0352 

0356 
0357 

0357 
0358 
0358 
0358 
0359 
0359 
0359 
******** 

NEXT SEG 

0360 

0360 

036 i 

0362 

0365 

0366 

0366 

0370 

0371 

0374 

0374 

0T74 

0378 

0382 
DJW6 

0386 

0388 

039 f 

0393 

0394 

0395 

0397 
0399 
0401 
0402 



137 

134 



TF DOLLARS ANDCCOOE < 9 OR CODE > 14) THEN FLAG(166)> 
TF COMMAS AND NOTCCODE ■ 10 OR CODE ■ 12 OR CODE ■ 9) 
THEN FLAGC165); 



* PLUSP * DOLLARS 
STR * true; 

♦ o; 



•• COMMAS * STR * FALSE; 



END ; 

VRB* 

FRRORTOG ♦• FIELD «• PF 

TF CODE » HPHASE THEN 

CODE ♦ REPEAT ♦• WIDTH 

XTA 4- blanks; 
go to fall; 
noendl tf field then flagc32); 

TF COOE t TPHASE THEN LISTEL * TRUE ELSE REPEAT ♦ \l 

tf rfpeat»0 and zf then flag(173) ; 
field «• true; 
fall' if mlnusp then begin flagc32); mlnusp ♦ false end; 

ask*7f«-false ; 
NULt dfcimal * o; 

if parenct * then begin scn ♦ 1; go 
tf code < 5 then 

if total «• total-h > lstmax then 
begin fl0g(78);t0tal * total-2; 
go to round; 



to semic end; 



go to semic; end; 



noplacei 



SCN «• 0; 
SEMICI 
IF SCN » 



IFfOClNPUT OR FREEFTOG) AND (STRlNGF 

if tsseditog then if (strlngf or hf } 
then tssedcxtam); 
if continue then if readacard then 
begin if uistog then . printcard; go 

next «. semi; 



OR HF) THEN FlOG(150); 
AND NOT DCINPUT 



to round; end; 



1 



IF 
IF 
IF 
IF 
IF 



o; 

PARENCT 



< THEN 9 ELSE 8); 



END 



THEN SCAN; 
STRInGF THEN FLAG (22); 
NOT LISTEL THEN wSaTO] * 
PAREnCT * THEN F|.AGCIF 
D * THFN PRTSAVER(D*T0TAL+1»WSA); 
DEBUfiTOG THEN BEGIN 

wRtte(line#fm) ; 
for 1*0 step 1 until total do begin 

J.C41ll]»J.C«2«43,J,[«2l5]fJ,c44ll],J,C45ll)# 
J.C46I1],J.[46I2),J.C47I13) ; 
IF j.Cll5]«2 THEN IM + CJ, [61123+2). r36f93 ; 

end ; 

WRlTE(LlNEtDBL3) ; 
END OF DEBUGSTUFF'; 
FORmATER^ 



134 IS 



04760600 T 


0402 




04760700 T 


0406 




04760800 T 


0408 




04760850 T 


0411 




04760890 T 


0411 




04760900 T 


0411 




04760940 T 


0415 




04760980 T 


0417 




04761000 T 


0419 




04761500 T 


0419 




04762060 T 


0420 




04762500 T 


0422 




04762510 T 


0425 




0476 3000 if 


0428 




04763500 T 


0429 




04764000 T 


0431 




04764500 T 


0432 




04765000 T 


0433 




04765500 T 


0436 




04766600 J 


0437 




04766500 T 


0439 




04767000 T 


0442 




04767500 T 


0442 




04768000 T 


0447 




04768500 T 


0449 




04769000 T 


0451 




04769500 T 


0453 




04770000 T 


0456 




O477O5M f 


0457 




04771000 T 


0458 




04771500 T 


0459 




04772000 f 


0461 




04772500 T 


0463 




04772600 T 


0467 




04772605 "T 


047i 




04772610 T 


0471 




04772615 T 


0474 




047726?0 T 


0476 




04772625 T 


049s 




04772630 T 


0505 




04772635 f 


0515 




04772640 T 


0519 




04772645 T 


0522 




04772650 f 


0526 




04773000 T 


0526 




535 LONG* 


NEXT SEG 


6 



procedure executable; 

BEGIN LABEL XIt; REAL t# J» TS# 



p; 



IF SPLINK < THEN FLAGC12); 

IF LABL « BLANKS THEN GO TO XlT; 

IF T * SEARCHCXTA + LABL) * THEN 

T ♦ ENTERC-0 t LABELIDCT0CLASS3 4 ( ADR + 1 ) [ TOADDR ) 



04773010 

0477J020 

START OF SEGMENT 

04773030 
04773040 
04773050 



T 0556 

T 0556 

********** 

T 0000 
T 0002 
T 0003 



138 



04773060 T 0005 



BEGIN 



THEN 



ENID; 



NSEGtTOSEQNOl* LABL) ELSE 
IF (P «• GET(T)). CLASS * LABELID 
BEGIN FLAG(Hfl); GO TO XlT END; 

if p < then begin flagc20); go to 
ts «■ p.addr; 

WHILE TS i DO 

BEGIN J * GIT(TS); FIXBCTS+IOOOO); TS 

PUT(T, P*"P 4 (ADR + IHTOADDR] & 

IF (T «■ GET(T+2)),BASE * THEN 

T * PRGDESCBLDR(2# T.BASE* ( ADR+1J t t 361 10] , 



xit end; 



* J ENDI 

nseg[tosegnOT>; 



XIT» 

end executable; 



NS.EQ.Ji. 
IF XREF THEN ENTERX(LABL, HLABELlDCTQCLASS] ) t 



138 IS 



04773070 T 
04773060 t 
04773090 T 
04773100 T 
04771110 T 
04773120 T 
04773130 T 
04773 1 40 f 
04773150 T 
04773160 T 
04773170 T 
04773175 T 
04773180 T 
04773190 T 
43 LONG, 



0009 
0011 

0014 
0015 
0018 
0019 
0021 
0026 
0030 
0033 
0037 
0037 
0040 
0040 
NEXT SEG 



PROCEDURE IDCOMMANO(N); VALUE N; REAL NJ 

COMMENT N COMMAND 

READ 

1 WRITE 

2 PRINT 

3 PUNCH 

4 BACKSPACE 



7 data; 
begin label xit#such*lister>noform*former»wrap#daat*nf; 



LABEL LlSTERi; 

boolean suchtog, rotrin, freeread; 
boolean formary, noformt; 

BOOLEAN NAMETOG; 
DEFINE DATATOG » OATASTMTFLAG*; 
REAL T# ACCIDENT* EDITCODE; 
REAL datab; 
PROCEDURE ACTIONLABELS(UNSEEN); value unseen; 

begin label eof, erf^rata* xlj* acji on » mult i i 
boolean back»goterr#gqteof> 

IF UMSE£N TMlN_ SC A_Ni 

EOF: IF "GOTEOF THEN~QO* TO "MULTII 

IF BACK * NAME a "END " THEN GO TO ACTION; 
ERR I l£ GOTERR THEN GO TO M ULTIJ 

IF NAME '7 "ERR" ""' THEN Tf" GOTEOF TffCN™ 

bfgin multh xta * name; flogci37); 
go to xit; 



BOOLEAN UNSEEN; 



04774000 
04775000 
04776000 
04777000 
04778000 
04779000 
0478O0W 
04781000 
04782000 
04783000 
04784000 
START OF SEGMENT 
478 42 00 
04785000 

04785020 
04785050 

04785100 
04786000 
"04786100 
04787000 
04788000 



End else go to rata; 
actidni scan; 

! f_ next » equ al then scan else go to rataj_ 

If'NEXT * NUM fHEN"GO "TO" RATA; " " 

if xref then enterxcname*0*labelloctoclassj ); 
if back then nxl * name else nx2 ♦ name! 
Scan; if next "■"'Tparen " then go to xit; 

if next « comma then scan else go to ratai 



START OF SEGMENT 
04789000 
04790000 
0479 10W 
04792000 
04793000 
T5479^JXT0 
04795000 
4796000 
0~479T0150~ 
04798000 
04 799000 
04800000 
04800100 
04801000 
04802000 
04803000 



0556 
0556 
0556 
0556 
0556 
0556 
0556 
0556 
0556 



0556 
********* 



139 



0000 
0000 
OflOO 
0000 
0000 
0000 
0000 
0000 
********* 

0000 
0000 

TOOT 

0003 
0005 
0006 " 
0007 
0009 
~~0~0~12 '"""" 
0012 
0012 

""Wi 

0015 
0018 
0021 
0022 



140 



* «• 



m 



If back THEN 

BfGIN BACK «• NOT C GOTEOF * TRUE); 
GO TO ERR; 

end; 

GnTERR * TRUE; 

go to eof; 
rata! xta * name* flogco); 

XITJ 

end acttonlabels; 



04804000 


T 


0024 


04805000 


T 


0024 


04806000 


T 


0026 


04807000 


T 


0027 


048OBW0 


T 


0027 


04809000 


T 


0028 


04810000 


T 


0028 


04811000 


T 


0030 


04812000 


T 


0031 



140 IS 34 LONG, NEXT SEG 139 



IF DEBUCT06 THEN FLAGrOUTI NEC " I0C0H%°MAND "*TRUE ) i 
E0D$«-N*7 " 

c2 * if n * or n ■ 7 then 1 el.se oj 

scan; if next ■ semi then begin flqgco); go to xit end; 

IF N * 7 THEN 

BEGIN tUTATOG «- TRUE; 

IF LOGIFTOG THEN FLAGC101); 
LABL * BLANKS; 

If splink * o then xnot block' data stmt 

BfGIN 

IF DATAPRT«0 THEN BEGIN 

DAtAPftT«.PRTS*PRTS+l; ADJUST} 
DATASTRT«-(ADR + l)8NSEGCTOSEGN03 END 
ELSE FIXBCDATALINK); 

emitopdclikdataprt); emitoclng); 
emitbc1* true); datab *■ lax; 
end; 

go to daat; 
end; 

executable; 
emitocmkS); 

IF N * 4 THEN 
BEGIN 

imlinefile ; 

bfgin emitlco); emitlco); emitlco; emitl(o); 
emitl<5)} emitlco); emitl(o); 
emitvcneedc.fbinb'sintrfunid)); 
EmD; 

go to x.n; 

end; 

editcodf «■ nxi «■ NX2 * o; 

IF RDTRfN * 

N « THEN IF NEXT * LPAReN THEN GO TO SUCH 
ELSE EMITDESCLITC"~ILECHECKC".5 "»2+17xREAL 

ELSE IF N * 1 T HEN f I T" NEXT J LP A R EN "" T HEN FT AST337" 

ELSE GO TO SUCH 
ELSE IF N « 2 THEN 

EMifOC8CUXTfFiLECHECk(".4 •»»2+i7xREAL 



CREMOTETOG))) 



04812010 
04812020 
04812050 
04613000 
04814000 
64815000 
04816000 
04816100 
04816110 
04816120 
04816130 
048 1 6115 
04816136 
04816137 
04816140 
04816150 
048^6160 

04817000 
04818000 

04819000 
04820000 
04825100 
04825200 

04826000 
04832000 

04833000 
04634066 
04835000 
0_4836000 
04837066 
04838000 
048 39000 
64640066 
04841000 
04841100 



0000 
0002 
0003 
0007 
0012 
0012 
0015 
0017 
0017 
0018 
0019 
0026 
0022 
0024 
0026 
0027 
0029 
0029 
0030 
0030 
0030 
0031 
0032 
0032 
0033 
0036 
6038 
0039 
0039 
0042 
0042 
0043 
6643 
0046 
0048 



CREMOTETOG))) 



ELSE EMTTOeSCLITCF 1LECHECKC m . PUNCH** ) )7 
IF RDTftTN THEN EMITLCO) ELSE EMITPAIRC 1* SSN); 



04842000 T 0~0~49 

04843000 T 0054 

048440 00 P 0055 

04845060 P "6036 

04845160 T 0098 

04846000 T 0059 

04 84*76 6 T" 6059 

04848000 T 0063 



GO TO FnRMPRl 

suchj scan; RandOmtog«.suchtog*true; inlinefile ; 
randomtog*freeread*false i 
if next * equal then % random key 
bfgin scan! 

if expr(true) > reaitype then flagc102); 
if rdtrin then emitpair( 1 , ado) i 

EmD ELSE IF RDTRIN THEN EWTTL(O) ELSE EMITPAIR<1#SSN)J 

if next ■ rparen then go to nf; 

if next * comma then begin fl0gch4); go to xit end; 

Scan; 

if next » id then 

if name * "err " or name a "eno " then 

begin acTionlabelscfalSe); 
nfi if rotrin then emitl<0) else emitpair ( 1, ssn h 

EMITL(O); 

noformt «• true* 
scan; go to noform; 
end; 
former* if adr > ^085 then 

bfgin adr ♦ adr+i; segovf end; 

IF NEXT * NUM THEN % FORMAT NUMBER 
BFGIN EDITCbOE * l) 

IF TEST «■ LBLSHFT(NAME) S THEN 

BEGIN FLAGC135); GO TO LISTER END; 

IF I * SEARCH ("TEST) » THEN % NEVER SEEN 

0FL0HHANGeRS(I*ENTER(04F0RMaTI0CT0CLASS]» TEST)) ELSE 

IF GET(I). CLASS * FORMATID THEN 

BEGIN FLAGCH3); GO TO LISTER EN D| 

IF XREF THEN ENTERX< TEST#0»FORMATIDC TOCLASS) )J 

IF GETCI) ± ADDR * THEN 

BEGIN EMlTLlNkCCINFC ♦ GETCl ""♦" '2'Yy,WKSY')t 

putu + 2,infc&adr[t0base]); 

emitl(o); emitlco); emito(nop); 
End Else 
begin emitlcgetci+ 2), base); 

emitpair(getci).addr#lod); 

' End'; "" 

go to lister; 

END ELSf IF RDTRIN TH£N IFCFREEREAO l» NEXT=SLASH) THEN GO TO LISTER 
ELSE BEGIN IF NEXT NEQ ID THEN BEGIN FL0GC116);G0 TO "xTfl EnDIEND 
ELSE IF NEXT NEQ ID THEN 
BEGIN IF NEXT ■ STAR THE_N 

begin" namedesc I" true; globalname i« true; 

TV I* ENTER(0&LISTSIDCT0CLASS]#LISTIDI*LISTID+1); 
SCAN) 

end; 

IF NEXT ■ LPAREN THEN 

BEGIN SCAN^. If EXPR(TRUE) GTR REALTYPE THEN FLAGC120) ; 
SCAN ; END "EL ~S~E EM itl C ) T '" 

if globalname and (freeread l» next * slash) or freeread then 
go to lister else begin flog(llo); go to xit; end; 
end; 

gftallu * fnext#infa,infbmnfo; 
if t * infa. class * arrayid then x format array 
bfgin editcode ♦ u 
formary ♦ true; 



04849000 


T 


0068 


04 8 50000 


T 


0068 


04850100 


T 


0072 


04852000 


T 


0074 


04853000 


T 


0075 


04854000 


T 


0076 


04855000 


T 


0078 


04856000 


._... 


0080 


04857000 


T 


0084 


04858000 


T 


0085 


0485^000 


T 


0087 


04860000 


T 


0088 


04861000 


T 


0089 


04 862007) 


T 


009! 


04863000 


T 


0092 


04863100 


T 


0098 


0486 3500 


T 


0098 


04864000 


T 


0099 


04865000 


T 


0100 


04866000 


T 


01 00 


04866100 


T 


0101 


04866200 


T 


0104 


04867000 


T 


0104 


04868000 


T 


0106 


04869000 


T 


0108 


04870000 


T 


01l2 


04871000 


T 


0113 


0487H00 


T 


0117 


04871200 


.._. 


0119 


04873000 


T 


0121 


04874000 


T 


0124 


04 8750O0 


T 


0125 


04876000 


T 


0129 


04877000 


T 


0131 


04878000 


T 


OJ33 


04879000 


T 


0133 


04880000 


T 


0136 


04881000 


"T" 


0138 


04882000 


T 


0138 


04883000 


T 


0139 


04883100 


T 


0141 


04883150 


T 


0144 


04883200 


T 


0146 


04 883 3 00 


.._... 


0147 


04883350 


T 


0151 


04883400 


T 


0154 


04883450 


T 


0155 


04883500 


T 


0155 


04883550 


T 


0156 


"048836013 


T" 


0159" 


04883650 


T 


0161 


04883700 


T 


0164 


04883750 


T 


0166 


04684000 


T 


0166 


04885000 


T 


0168 


04886000 


T 


0169 


04886050 


T 


0171 



T * EXPRCFALSE)* 

ADR * ADRMJ X ELIMINATE XCH EMITTED BY EXPR 
IF EXPRESULT t ARRAYID THEN FL0GC116); 
GO TO LISTERU % SCAN ALREADY DONE IN EXPR 
END else 

IF T * NAMELIST THEN 
BEGIN NAMETOG Is TRUE* 
IF INFA.ADDR * THEN X REFERENCED* NOT OEF 
BEGIN EMITLINK(INFC.BASE); 

PUTCI+ 2#CINFC ♦ INFC&ADRIT08ASE])); 
EMITLCO)* EMITLCO)* EMITO(NOP); 
END ELSE 
BEGIN EMlTLClNFC.BASE); 

FMiTPAlR(INFA.AbDR'LOD); 
END 
END 

Else if t « unknown then % assume namelist 

BfGIN PUTCI#UNFA * INFA&NAMELISTCTOCLASS])); 
NAMETOG »* TRUE; 

""f5FLWHANG"ER:scr); 

emitlink(o); putci + 2* infc&adrc tobase 3 ) j 

emitlco); emitlco); emito(nop); 
End Else begin xta ♦ infb; flogui6>; go to xit end; 
Scan; 

IF NEXT * COMMA THEN ACTIONLABELSC TRUE ); 

if suchtog then 

if next i rparen then fl0gc108) else scan; 
if next i semi then begin fl0gc118); go to xit eno; 

EMITLCO); ' EDl'tcODE'* "*i" "EMlTOPDCLif C7)"i EMffOCFTC)* 

go to wrap; 
lister! scan; 

IF FREEReAD THEN IF NOT RbfRlN THEN 

BEGIN IF NEXT t SLASH THEN EMITO(SSN) ELSE SCAN; 

IF NEXT s LPAREN THEN 
BEGIN SCAN; IF EXPR(TRUE) > REALtYPE THEN FLAGC 120) * SCAN 

end else emitl(o); 
end; 

LISTERI t 

IF SUCHTOG THEN 

BFGIN IF NEXT « COMMA THEN ACTIONLABELSC TRUE ) ; 

IF NEXT • RPAREN THEN SCAN EUS E BEGIN FLOGCioe)* GO TO XI f END*" 

EnO ELSE IF NEXT»COMMA THEN SCAN ELSE IF RDTRIN THEN 
IF NEXT/SEMI THEN FL0GCH4)* 
NOFORMI IF NEXT-SEMI THEN 

BfGIN IF FREEREAD THEN FL0GC061) ELSE EMITLCO)* GO TO WRAP END; 

IF (NEXT NEQ LPAREN) AND CNEXT NEQ ID) AND CNEXT NEQ STAR) THEN 
GO TO XI t; 

FnlTCOftE * EDITCODE ♦ 2; 
DAATt EMlTBC-l#FALSE_); LADR1 ♦ LAX; ADJUST; _ DESCREQ * TRUE; 
IF ADR Z 4085 THEN 

BFGIN ADR «■ ADR+U SEGOVF; ADJUST END; 

ACCIDENT ♦ PRGDESCBL0RCO*O»ADR#C36UO] ♦ ItNSEG); 

EMIT0PDCLITC19); EMITOCGFW); 

LlSTART * ADR&NSEGCT0SEGN03; ADJUST; 
LA * O; IOLISTCLA); 

EMITLCI); EMlfbcCHS); EMITLC19); emitocstd); 
FMITDESCLITC19); EMITOCRTS); 



04886100 
04887000 
04887100 
04888000 
04 889000 
04890000 

°M9P100 
04891000 

04892000 
04893000 
04894000 
04895000 
04896000 
04897000 
04898000 

04898100 
64899000 

04900000 

04900100 

0496id6"0 

04902000 

04903000 

04904000 

04905000 

04906000 

04907000 

04908000 

04909000 

04916600 

04911000 

649 J2600 

64912166" 

04912200 

04912300 

04911466 

04912560 

04912600 

04912760 

04913000 

04914000 

64915666 

04916000 

04916100 

04917000' 

04917100 

0491JB000 

64918100 

04919000 

04920000 



T 
T 
T 
T 
T 
T 

T 

T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
f 
T 
T 
T 
T 
T 
f 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 



0171 
6 1 73 

0174 
0176 
0176 
0176 

0178 
0179 

0180 
0182 
0184 
0187 
0187 
6188 
0190 
0190 
0190 
0191 
0194 
0195 
0196 
0198 
020 1 

0203 
0204 
0206 
0206 
0209 
6212 
0215 
0215 
6216 
0217 
0221 



04920160 
04920200 
04 921 000 
04922666 
04923000 
04924000 
04925000 
04926000 



0225 

0227 

0227" 

0228 

0228 

6230 

0234 
0237 
0239 
0240 
6244 
6247 
6248 
0249 
0253 
0254 



0259 
0261 
0263 
0265 
0268 



FT 

If 

Br 



if 



En 
Em 

WRAPJ IF 

IF ROTRi 

BEGIN IF 

IF 

IF 



END ELSF 

IF FREER 

BEGT 

IF n 



XB(LADRl); DESCREO ♦ FALSE; 

DATATOG THEN 
GIN DATASET/ 

IF NEXT * SLASH THEN SCAN ELSE 
BEGIN FLOG(HO); GO TO XlT END; 
LSTA»0 THEN BEGIN BUMPPRT; LSTa*PRTS END; 
IF (LSTMAX - LSTI) i LSTS THEN 

BEGIN WRiTEOATA(LSTI#NXAVIL * NXAVIL ♦ l#LSTP)J 
LSTA «• PRGDESCBLDR(1»LSTA#0#NXAVIL); 

lsti * o; bumpprt; lsta*prts; 
end; 

movew(lstt#lstp[lstl3#(lsts *■ lsts ♦ 1),c36i63#lsts); 
emitocmkS); emitlcistd; emitpair(lsta*lod); 

LSTI * ""L'S"tl" ♦ LSTS; 

emitpaircaccident#lod); emitopdclit(7); emitocftf); 

emttlc6); emitlco); emitl(o); 

emitv(needc h .fbinb"#intrfunid)); 

if next * comma then 

begin scan; go to daat end; 

if splink 2 then begin 

EMITBC-l'FALSE); DATAl INK*LAX; 

fixb(datab) end; 
go to xitj 
d; 

ITPAlRfACClOENT*LOD); EMI TOPDCLl T ( 7); EMITOCFTF); 

NOT FREEREAD AND NOT NAMETOG THEN EMTfLCEOlTCODE)> 
N THEN 

NX1 * THEN EMITL(O) ELSE EMITLABELDESCC NXl ) ; 

NX2 "■ 6 THEN EMIfL(O) ELSE EM1TLABELDESCCNX2) J 

FREEREAD THEN EMITV<NEEO< ",FREFR w # INTRFUNID)) 
ELSE IF NAMETOG THEN EMI TVCNEED(".FINAM"» INTRFUNID ) ) 
ELSE" IF FORMARY THEN i 'l'MX~tTC¥EE b(""rFT INTSTnTRFU'NIO")") 
ELSE IF NOFORMT THEN EMITVCNEEDC ".FBINB", INTRFUNID > ) 
else EMITV(NEED( M .ETNIN W #JNTRFUNID)); 



E'Ml 
END 



EAD THEN 
N 

AMEDESC 
BEGIN 

PR 

EM 

EM 

IF 

"'EL 

NA 

END ELS 

TVTNtCD'f 

ELSE IF 

EL 



THEN 

TSAVER(TV>NAMEIND+l#NAMLlST); 

iTLC'8CT(TV*aJ7BA5E")T'" 

ITPAlR<GET(TV).ADDR#LOO)l 

NAMLISTC03 * THEN EMiTL(O) 
SI TMTTFATRTGrrf GIOIALSE ARCH T w . SU BAR*>)7A BDWFtfiBTf ~ 

mlist(o) »« nameind » * 0* 

e begin emitlco);emitlco);emitl(o);end; 

w ;FREWR">"TNTRFUNTim " "~ ' " ~ " 

nametog then emitvcneedc ".fqnam", intrfunio) ) 
se if form ary t hen emitvcneedc". ftout"* intrfunid) ) 

elsttegin 

if nx1-0 then emltl(o) else emitlabeldesc(nx1 ) ; 
if nx2«0 then emitlco) else emitlabeldesc(nx2 ) ; 

"~~ IF NOrORMfTHTr^ 

EMITVCNEEDC".FTnQU"» INTRFUNID)); 

end; 



XITI 



IF NAMEOESC THEN IF RDTRIN THEN FLAG<159) 



04927000 T 
04928000 T 

04929000 T 
04930000 T 
04931000 T 
04932000 T 
04933000 T 
049 34000 f 
04935000 T 
04936000 T 
04917000 t 
04938000 T 
04939000 T 
04940000 T 
04941000 T 
04942000 T 
04943000 T 
04944000 T 
04945000 T 
04946000 f 
04946500 T 
04946600 T 
04947000 '"f 
04948000 T 
04949000 T 

04950600 T 
04951000 T 
04952000 T 
04955000 T 
04954000 T 
04954050 T 

04954100 f 
04954150 T 

04954200 T 
04953000 T 
04956000 T 
04956005 T 
04956010~T 
04956020 T 
04956040 T 
049561(50" f 
04956200 T 
049565 00 T 
0495655TTT 
04956600 T 
04956650 T 
^495*700 T 
04956750 T 
04956800 T 

" 04956W0~r 
04956910 T 
04956920 T 

"0*956925 "T 
04956930 T 
04956940 T 

04957000 T 
04957050 T 



0269 
0271 

0271 
0272 
027 4 
0277 
0263 
0284 
0287 

0289 
0294 
0294 
0298 
0300 
0302 

0304 
0306 
0308 
0309 
0312 
0313 
0315 
0316 
0316 
0316 

0319 
032i 
0321 
0325 
0328 
0330 
0334 
0338 
0342 
0346 
0346 
0348 
0348 
0349 
0350 
0T5T2 
0354 
0356 
-0J5T 
0362 
0363 
0T61 

0369 

0373 

-0T7T 

0380 
0383 
0T86 

0368 
0392 

0392 
0393 



DAT a TOG I 
IF OEBUfiTOG then 

end iocommano; 



. ELSE IF N 

false; namede 



T FREEREAD THEN F.J.A&U6.0) J 

c »« false; globalname «* false; 
flasroutinec* iocom"»"mand w »false) ; 



procedure stmtfunclink); value link; real link; 

BEGIN 

DEFINE PARAH * LSTT*; 

REAL SAVEBRAD» It 

REAL INFA* lNFC# NPARMS* TYPE* PARMLINK, BEGINSUB* RETURN; 

LABEL XIT'TJX ; 

IF SPLINK < THEN FLAG<12>; 

LABL * BLANKS; 

FIlETOG «• TRUE; % PREVENTS SCANNER FROM ENTERING IDS IN INFO 

IF XREF THEN ENTERX( GETC LlNK + 1 )#6*ST MTFUNlOt TOCLASSJ" 

&(GET(LlNK))f21t21l33); 
DO 
BEGIN 

scan; 

if next x id then begin fl0gu07); go to xit end; 

param[nparms4.nparms + n ♦ name; 
scan; 
end until next * comma; 

IF NEXT i RPAREN THEN FiOG( 108) ELSE SCAN! 



EQUAL THEN BEGIN 
FALSE7; 5AVEBRA0 



FLOGClOft); GO TO XlT END; 

* L A X T % BRAN C"H A ROWTT ST TUN 



BEGIN 



END; 



IF NEXT X 
EMTTBT-i, 

adjust; 

RFrlNSLJB * A R + 1 ; 

■BUM^ro'iff'A"l5"r'EHITFAfR"("RCTU'RN*LdCAi.S*"l"536'#SfO)"< 
FOR I * NPARMS STEP -1 UNTIL 1 DO 
I 
IF T ■ * - srARCHTFA p AMn] j j CTHeN"" " " 

TYPE ♦ GETCT). SUBCLASS ELSE 

IF T+PARAMCJ] . C12t63 < «jtt OR T >_"N^ THEN 

TYPE i REALfYPE "ELSE TYPE * i'NTYW 
EMITSTOREC ENTER(04VARlOCTOCLASSHnTOTYPF3 

STYPEtTOSUBCLJ*. PARAM^I 3 ), _TY_PE ); 
"IF ""XREF - TMTN T^EPfXClinS'Mrr5*VARlfirT0CLAW34TTPTrT0"3IJB^O>T 

PARMLlNK_*_NEUINF0-3i__ 
lBCfALU<UNKY"lNFAV XT*i "iNFC )7 

filetog * false; 

scan; _____ 

if ( type* (infa«»get( link)). sub cl ass )«logtype 



8IH«83I mi 




04957110 T 0405 




04958000 T 0407 




139 IS 414 LONG* NEXT S£G 6 




04959000 T 0556 




04960000 T 0556 




04961000 T 0556 




START OF SEGMENT ********** 141 




04962000 T 0000 




04963000 T 0000 




04964000 T 0000 




04964100 T 0000 




04964200 T 0002 




04965000 T 0002 




04965100 T 0003 




04965200 T 0007 




04966000 T 0008 




04967000 T 0009 




04968000 T 0009 




04969000 T 0009 




0497WOO T O0T2 




04971000 T 0014 




04972000 T 0014 




049T300S f 0OI6 




04974000 T 00J9 




04975000 T 0019 




"04?r60W~T 0021 




04977000 T 0023 




04978000 T 0024 




049T9W0 i""f 0025 




04980000 T 0031 




04981000 T 0033 




OT9T200"0 "J 00~3T 




04983000 T 0035 




04984000 T 0037 




04985000 T 0040 




04986000 T 0043 




04987000 T 0046 




04987100 T 0048 




04988000 T 0052 




04989000 T 0054 





IF 



(I*EXPRCTRUE))»LOGTYPE 
.BEGIN IF I/TYPE THEN 
OR 



OR TYPE«COMPTYPE 
OR I»COMPTYPE THEN 
FLAG C13 9); G_0__TIX END. J _ _ 
TYPE« INTYPE THEN 



OR 



TYPE-REALTYPE 
BEGIN 

IF I»OQUBTYPE THEN_BEGIN fMITO(XCH); 
IF TYPE*INTYPE THEN IF iVlNTYPE THEN 
GO TIX ; 



EMITO(OEL) END ; 
EMifPAlR(l#IDV) ; 



04 990000 
04991000 
04992000 



04993000 
04993500 
04993510 



T 0055 
T 0057 
T 005? 
0058 



0061 
0065 



04993530 
04993540 
04993550 
04993560 
04993570 



0068 
0069 
0070 



0073 
0076 



TIXJ 



END \ . „... 
IF I^DOUBTYPe 



THEN emitPairco#xch) ; 



; 



EMTTOPOCLIT(RETURN) 

EMlfOCGFW); 

FIXB(SAVEBRAD); 

IF INFA. CLASS * UNKNOWN THEN FlAG(HO); 

PUT (LINKV "INFA & "lTT'OTTPri « NSEGCTOSEGNO J 

& STMTFUNIOCTOCLASS] & BEGINSUBt TOADDR3 ) ; 



PUTtLINK+2, -CO & NPARRSCT0NEXTRA3 

4 PARMLINKC36«36I12]))J 
PARMLINK * PARMLlNK+4) 
FOR" 'I * 1 STEP I UNTIL NPARMS DO 



S ADR t TOBASXy 



PUTCPARMLINK * PARMLINK-3, " «)) 



END 



XITl 

FILETOG 
STMtFUN) 



* false; 



Hi IS 



04993580 


T 


0077 


04993590 


T 


0077 


04993595 


T 


0079 


04994000 


T 


0080 


04995000 


T 


0080 


04996000 


T 


0081 


04997000 


T 


0082 


04998000 


T 


0084 


04999000 


T 


0087 


04999500 


T 


0090 


050DTJ0W 


T 


OOW 


05001000 


T 


0092 


05002000 


T 


0094 


O3OTTC0OO T 


"0093 


05004000 


T 


0097 


05005000 


T 


Old 


05606000 


T 


0102 


05007000 


T 


0102 


108 LONC 


»# 


NEXT SE6 



procedure assignment; 

BEGIN 

label xit; 
boolean chck; 

BOOLEAN i; 

IF oebugtog then FLAGROUTINEC" 

fxi •• fnext; 

scan; 

if next * lparen then 



ASSIG W » W NMENT M #TRUE ) ; 



BEGTN 
CHCK*TRljE; 
IF 
IF 



* UNKNOWN THEN 



F LOG (035) ; 



8ETCFX1). CLASS 

EODS THEN 

BEGIN XTA ♦ GET(FX1+1); 

PUT(FX1»GET(FX1) & ARRAYIDI TOCLASS] ) ; 

PUT(FXl+2fGETCFXl+2) 4 1 1 T0NEXTRA3 ) ; 

END 

else begin stmtfun<fx1 ) i go to xit end ; 

if xr£f then enterxc getcfx1 + 1 ), ugetcfx1 ) 

eods * true ; 

executable; 

scan_;_ 

I * SU8SCRlFTS(FXi»2); 

scan; 

END ELSE 

BEGIN -' " " "' " "" ~ " "' 

eods*true ; 
executable; 

IF T * GET fTxl). CLASS ■ 
BEGIN XTA «■ GET(FX1*1>; 



C15H5I9]); 



end; 



ARRAYID 
FLAG(74) 
M0VEW(ACCUMtl1#H0L0I0t03»0,3); 

IF XREF THEN IF WOtOTDTOT. 1 12 1 123 i *D0 W THEN" 

ENTERX(GET(FXUl)#l«GETCFXlH21l21«3 3«VARIDtTOCLASS3); 



05008000 
05809000 

05010000 
START OF SEGMENT 
05010500 
05010600 
05011000 
05012000 
05913000 
05014000 
05015000 
05015500 
05016000 
05017000 
050I7T5TT5 
05017020 
05017030 
05017040 
05017050 
05017055 
05017060 
05017100 
05018000 
~05Tl9M6 
05020000 
05021000 

"TT50220O0 - 

05022010 
5022100 

05024000 
05025000 
OWZSflH) 
05025200 



0556 
0556 

0556 

********* 

0000 



142 



0000 
0002 
0002 
0003 
0004 
0004 
0005 
0007 
0007 
0010 
0013 
0016 
0016 

o°Jt 
"tfoav 

0026 
0026 



HWf 
0028 
0029 



0019 
0029 
0030 
0071 
0033 
0036 
0038 
0040 



ENDJ 



begtn 



if next t equal then begin flagu04); go to xit end; 
scan; 

if next-semi or next»comma then begin flogco)j go to xit; £nd; 
fx2 ♦ expr(true); 

if next neo comma then if holdidc03 ■ "00" then if xref then 
enterxcholdioco] # hgetcfx1 ) 1 21 1 21 « 33 4varidct0class3 ) j 

IF NEXT * COMMA THEN IF CHCX f HEN FU0G( 56 ) ELSE " 
IF HOLDIDC03.tl2!12] i "DO" THEN FL0G(56) ELSE 



IF L06IFT0G THEN FLAG(lOl); 

IF FX2 > REALTYPE THEN FLAGU02); 

IF DT ♦ OT + 1 > MAXDOS THEN BEGIN DT «• \l FLAGU38) END; 

EMITN(FX1* CHECKbb); 

emtto(STd); 
scan; 

IF NEXT-SEMI THEN BEGIN FLAGC36); GO TO XIT END! 
IF (ACCUMC03 * H , "OR ACCUMC03 m »t ") AND 

GLOBAL.NEXT*NUM AND ABS(FNEXT) > 1023 THEN 

BEGIN 

IF EXPR(TRUE) > REALTYPE THEN FLAGC102); 

IDlNF0t*REALl0;FNEXTI«ENTER(IDlNF0# M 2FNV00 w &DTC36l36U2 3); 

EMITN(FNEXT tsGETSPACECFNExT)); EHITOCSTD )i 

EMITBC1#FALSE); LADR1I«LAX; ADJUST; 

LADR2 ♦ (ADR + 1) & NSEGC T0SEGN03 ; EMITVCFNEXT )i 

END 
ELSE BEGIN 

EMITBC-1, FALSE); LADRJ»*LAX; ADJUST; 

LADR2i"(ADR+l)tNSEGCtOSEGNd3; 

IF EXPR(TRUE) > REALTYPE THEN FLAGM02) * 

END ; 
EMITOCGRTR); 
EMITBC-1* TRUE); 
LADR3 * LAX; 
EMlTB(-l# FALSE); 

adjust; 

d0testcdt3 * (adr+1) & laxct0addr3 & nsegc t0segn03; 

IF NEXT > COMMA THEN EMlTL(l) ELSE 



BEGIN 



scan; 

IF NEXT' 



■SEMI THEN BEGIN FLAGC36); GO TO XIT END ; 



END; 



IF EXPRCTRUE) > REALTYPE THEN FLAGC102); 



END 
XIT I 
IF DEBUG 
END ASSt 



EMITV(FXI); 
EMITOCADD); 
EMlTN(FXl); 
EMITO(STN); 
EMlTB(LADR2# FALSE); 
FIXB(LADRI); 
FIxB(LA0R3)i 
ELSE EMITST0RE<FX1# FX2); 



TOG THEN FLAGROUtlNEC' 

gnment; 



assig h #"nment "/false) ; 



142 IS 



05Q1MQO 
05027000 
05028000 

05028010 
05029000 

05029200 

05029400 

05033006 

05030100 

05031000 
dSOggoOQ 

05033000 
05034000 
05635000 
05036000 
05037000 
050 38000 
05038900 
05039000 
65646066 
05041000 
05841100 
05041200 
05041300 
05041400 
65041456 
05041500 

05041600 
05641706 
05041800 
05042000 
65643666 
05044000 
05045000 
050 4 60 06 

05047000 
05048000 
"05649 (TOO 
05050000 
05051000 
05051100 
05052000 
05053000 
05054660" 
05055000 
05056000 
0505T6W 
05058000 
05059_000 
05066666 
05061000 
05062000 
05062010 
05063000 
145 LONG, 



0045 
0045 
0049 

0049 

0053 

0054 

0057 

0O6T 

OO64 

0068 
007 1 

0073 
0075 
0078 
0080 



0081 
0084 
0086 
0088 
0089 
0091 
6694 
0097 
0099 
0102 
0102 

01 01. 

0109 
0111 
01 U 
0114 
0115 

0116 
0117 

0118 
0118 
"0122 

0124 

0125 

0125 

0128 

0130 

0136~ 

0131 

0132 

"6132 

0133 

0134 

0135 

0136 

6137 

one 

0140 

NEXT SEG 



BOOLEAN PROCEDURE RINGCHECK; 

COMMENT THIS PROCEDURE PREVENTS THE POSSIBILITY OF DELINKING A 
HEADER FROM THE HEADER RING; 
BEGIN 

INTEGER il 



END 



i+a; 

DO 

IF I «• GETCCD.ADDR 

UNTIL I ■ *.' . 
RINGCHECK; 



« ROOT THEN RINGCHECK * TRUE 



05063100 T 


0556 


05063110 f 


0556 


05063120 T 


0556 


05063200 T 


0556 


05063250 T 


0556 


START OF SEGMENT ******* 


05063300 T 


0000 


05063350 T 


0000 


05063400 T 


OOOl 


05063450 T 


0004 


05063500 f 


0005 



143 



143 IS 



9 LONG, NEXT SEG 



PROCEDURE SETLINKCINFADDRJ; VALUE INF ADDR; INTEGER INFAOORt 
COMMENT THIS PROCEDURE LINKS AN ELEMENT TO ITS PREVIOUS HEADER; 
BEGIN 

intfgerlast'I; Real coml; label xit; 



START 



XITI 



END 



LAST «-(getccinfaddr)«lasto*i; 

FOR I * INFADDR+2 STEP 1 UNTIL LAST 

00 BEGIN IF GETCCI). CLASS * ENDCOM THEN I«-GETC< I ) .LINK; 
IF Fxl ■CCOML«-GETCCI)j, LINK THEN 

IF INFADDR*CQML.LASTC*A THEN COM[ PWI ] . LASTC*ROOT 

else go xit ; 
end; 
setlINk; 



T)5063600 

05063601 
05063610 
0506 3620 
OF SEGMENT 
05063625 
05063630 
05063640 
05063650 
0506J660 
05063670 
05063680 
0"5 061710 
05063730 



T 0556 
T 0556 
T 0556 
T 0556 
********** 144 



T 
T 
T 
T 
T 
T 
T 
T 
T 



0000 
0000 
0002 
0005 
0010 
0012 
0018 
0019 
0020 



144 IS 23 LONG, NEXT SEG 



procedure dimension; 

BEGIN 

LABFL L, LOOP, ERROR ; 

BOOLEAN DOUBLED, SINGLETOG; 
IF DEBUGTOG THEN FLASROUTINEC" 0IMEN%"SI0N M *TRUE > J 
IF LOGIFTOG THEN FLAG(lOl); 
LABL ♦ BLANKS l_ 

IF NEXT ■ST" AR~ THEN IF f YPE'DOUBtYPE THEN 
BEGIN 

scan ; 

IF NEXT»NUM AND NU m TYPE«»INTYPE THEN " 

BEGIN 

IF FNEXT«4 THEN 

" " ""BEGIN" " " " " " " ""'" " "" 

singletog ♦ true; 

if type«comptype then flag(l76); go l ; 

End"; 

if fnext«8 then 

BEGIN 

IF TYPE»REALTYPE THEN TYPE*DOUBTYPE 

ELSE IF TYPE*COMPTYPE THEN FLAGC177) ; 





05064000 


T 0556 ■ 




05065000 


T 0556 




50 66000 


T 0556 




START OF SEGMENT 


********** 




05066005 


P 0000 




05066010 


T 0000 




05067000 


T 0002 




05067100 


T 0004 




05067210 


f ~~0U04 




05067220 


T 0006 




05067230 


T 0007 




" U5T6T2TF0 


fHWQf 




05067250 


T 0009 




05067260 


T 0010 




05067270 


T 0010 




05067275 


c ooit 




05067280 


T 0012 




05067290 


T 0017 




05067300 


T 0017 




05067310 


T 0017 




05067320 


T 0018 




05067330 


T 0019 



145 



go l ; 
end ; 

end ; 

flagcif type«realtype then 178 

ELSE 177-REAl(TYP£«COMPTYPE5) I 
L« NCR*REAL<NCR,[30I3JX0) + 3*677777".».NCRJ SCN*U SCAN i 

END i 
LOnP« OOUBLED*TALSEI 

IF NEXT / ID THEN BEGIN FL0GC105); GO TO ERROR END; 

FX1 * IF SINGLETOG THEN -FNEXT ELSE FNEXTJ 

IF TYPE iDOuBTYPE THEN X FIX ARRAY TYPE OFR 

PUT(FXlfGET(FXl)«TYPECTOSUBCL3)l % BOUNDS ROUTINE 
IF XREF THEN BEGIN INFA * 0&GET<FXl ) 1 15 1 15 t 9J 1 

IF f¥pE>6 THEN fNFA,SUBCLASS»TYPE; 

end; 

XTA *.. I.NF.B .♦. NAME; 

scan; 

if xref then 

begin if infa t class * unknown then 

INPA.CLASS*!F NEXTsLPaREN THEN ARRAYID ELSE VARID; 

enterx(infb#infa); 
end; 

IF NEXT«LPAReN THEN BEGIN SCAN; DOUBLEO*BOUNOS(Fxl) END ELSE 
IF TYPE * -1 THEN FL0GC103); 
GETAIL<FX1# INFA, XTA* INFOJ 
IF TYPE > 6 THEN 

IF BOOLEANCINFA.TYPEFIXED) THEN FLAGC31) ELSE 
BEGIN 

IF TYPE > LOGTYFe THEN 

IF GETCFX1+2) <0 THEN 

BEGIN 

IF NOT DOUBLED AND I NFA • CLA'SS"»i THEN 

BEGIN 

BUMPLOCALS; 

L E N G t H * t DC A L S ♦ 1536; 

PUT(FX1 + 2#INFC 4 LENGTH! TOSIZEl ); 

END 
END ELSE IF RUT DOUBLED f Hf'N 

begin if infc.size > 16383 then flagc99); 
put(fx1 + 2#infc & (2 x infc .size htosize) ) ; 

end; 

PUT CFX1#INFA & HTOTYPF3 & TYpEtTQSUBCLl H 



end; 

BEGIN 

'BEGIN 

f 
I 

BEGIN 



IF INFA < THEN FLAGC39) ELSE 
IF TYPE * -2 THEN 

IF BOOLEAN(INFA.CE) THEN FLAGC2); 
IF BO0LEAN(_lNFA,EQ) THEN 
I 

COM[NEXTCOM.IR*NEXTCOM.lC3.LASTC «• A ♦ infa.addr; 
B*GETC(ROOT),ADDR ; 

scfLiNk'u); 

IF NOT RINGCHECK THEN 



C OM C P WROOTI". AT5DR •■ GE TC ( A ) . ADDR ; 
PUTCCA#GETC(AHB[T0ADDRJ&7CT0SUBCLJ) ; 





05067340 T 


0022 




05067350 T 


0023 




05067360 T 


0023 




05067370 T 


0023 




05067380 T 


0024 




05067390 T 


0027 




05067420 T 


0031 




050681)00 T 


0031 




05068100 T 


0031 




05969000 P 


0036 




050S91WT 


DO 3f 




05069200 T 


0039 




05069300 T 


0042 




05069400" "f" 


6045 




05069500 T 


0048 




05070000 T 


004J 




05071000 T 


0049 




0507U00 j 


0050 




05071200 T 


0050 




6"507iV00 T 


0052 




05071400 T 


0056 




05071500 T 


0057 




65072006 f 


0057 




05073000 T 


0060 




05074000 T 


006J 




65675606 T 


6664 




05076000 T 


0065 




05077000 T 


0067 




65078606 'f 


0068 




05078200 T 


0069 




05078400 T 


0071 




05078500 T 


0071" 




05078800 T 


0073 




05079000 T 


0074 




65679260 f 


0078 




05079400 T 


0079 




05079600 T 


0081 




65079806 T 


"6081 




05079900 T 


0083 




05080000 X 


0086 




050 8 61 66 f" 


0089 




05080500 T 


0089 




05081000 T 


0092 




05082000 T 


0092 




05083000 T 


0094 




05084000 T 


0097 




05085000 T 


0097 




05086000 T 


OlOi 




05086100 T 


oioj 




05087000 T 


0104 




05888000 T 


0104 




05089000 T 


0109 




05069050 T 


otu 




05089100 T 


0U2 




05089200 T 


0113 




05090W0 f 


75113 




05091000 T 


0118 



END 
END 



END; 

ER&O 



ELSE 

PUT<FX1# INFA & 1CTOCE] 

IF BOOLEANCINFA. FORMAL) 



* ROOTCTOADDR]); 
THEN FlAGCIOJ 



IF DEBUG 
END OIMf 



IF ERRORTOG THEN 
Rl 

while next * comma and next * semi and next * slash do scan; 

if next « comma then begin scanl go to loop end; 
tog then flagroutine(" olmen"#"slqn 'sfalse) 1 
nsion; 



0509U00 
05092000 
05093000 
05094000 
05095000 
05096000 
05096100 
05097000 
05098000 
05098010 
05099000 



H5 IS H2 LONG, 



0122 
0122 
0122 
0125 
0127 
0127 
0126 
0129 
0133 
0135 
0137 
NEXT SEG 



PROCEDURE F0RMALPP(PARMSREQ# CLASS); VALUE PARMSREO* CLASSl 

BOOLEAN PARMSREQi REAL CLASS) 
BEGIN 

LABrL LOOP* xif; 

IF DEBUGTOG THEN FLAGROUTINE( m FORM","ALPP "»TRUE ) f 
PARMS * 01" 

scan; 

if next i 10 then begin fl0gc105); go to xit endj 

if class * Funis Then 

if funvar ■ then 

BEGIN 

if Type "> o then • - 

IF FUNVAR ♦ GLOBALSEARCH(NAME) * THEN 

IF BOOLEANCCT ♦ GET<FUNVAR)),TYPEFIXED) AND TYPE * T. SUBCLASS 

-"THEN FLAGT Jl 5") " 

PUTCFUNVAR * FNEXT#GETCFNEXT > & VARID[ TOCLASS 3 ); 
END* 

FNEW i."WZDXN¥EW" *"NAMf' CLASS)! " 

ENTERXCNAMEMF CLASS * FUNID THEN 

1&GET(FnEW)[15»15«93 ELSE l&GETCFNEW )[ 151 1515] ) i 

scan; ~~ " " " ~ - — -- - 

IF NEXT i LPAREN THEN 

IF PARMSREQ THEN FL0GC106) ELSE ELSE 

begin " " " ~ " "~: '" : " 

LOOpi 

scan; 

if next * id then p armllnkfcparms «■ parms+1 ] ""* fnext else 

if next»star and class*funid then parmlink cparms*parms+n«-oelse 

FkOGXlO 7 )! 

IF X R E F THEN E N T E R X < NAM' I VfF '" N t X T '" » STAR" T M EN 0" £ I M 

04GET(FNEXT)C15ll5t9]); 

scan; 

if next « comma then go to loop! 

if next * rparen then fl0gu08)! 

scan; 



05100000 
05101000 
05102000 
05103000 
START OF SEGMENT 

05103010 
05104000 

05105000 
05106000 
"05106100 
05107000 
05107020 
051 0T030 
05107040 
05107050 
05107060" 
05107100 
05107160 
U5T0B0OO 
05108100 
05108200 

~~" -05TO~9WO 

05110000 
5111000 
05112000 
05113000 
05114000 
~" 0~5TT¥oW 
05116000 
05117000 

~~ " 05117100 
05117150 
05118000 



T 0556 
T 0556 
T 0556 
T 0556 
********** 



END; 
XlTt 



IF NOT ERRORTOG THEN OECLAREPARMS(FNEW)! 



IF DEBUGTOG THEN FLASROUTInEC" F0RM"/"ALPP •sfalSe) 1 
END F0RMALPP1 



05119000 
05120000 
05121000 

osmooo 

05123000 
05124000 
05124010 
05125000 



T 

T 

T 

T 

t 

T 

T 

f 

T 

T 

T 

T 

T 

T 

T 

T 

T 

T 

T 

"T" 

T 

T 
T 
T 
T 
T 

X 
T 
T 
T 
T 
T 
T 
T 
T 



0000 
0002 

0002 
0003 



146 



0008 
0010 
GOTO 
OOU 
0013 
0016 
0018 
0021 

ao2i 

0023 

0024 

0U29 

0030 

0030 

W3~3 

0033 

0034 

O03T 

0038 

0042 

OOT4 

0047 

0049 

0050 

0051 

0053 
0051 
0053 
0055 
0056 
0058 



146 IS 61 LONG, NEXT SEG 



PROCEDURE 
PROCEDURE 
BEGIN 



FOUNDI 



END 



ends; forward; 
function ; 

real a»b»c»i; label found 



inFC); 



if splink nEq o then beGi n flagc 5 ) ; ends; segmentStart; end; 
labl * blanks; 
formalpp(TRUe# funid); 

GEtALLCFNEWV InFA, INFB* 
B*NUMINTM1 ; 
WHILE A+i<B DO 

BEGIN 

IF CMNTCI*REAL(BOOLEAN(A4B) 

THEN GO FOUND ; 

if infb<c then b*i.c36i11] else 
end ; 

INFB«INTCI*CA + B)X2MJ THEN GO FOUND 

FALSE THEN 

BOOLEAN(lNTCI + n,INTSEEN) THEN BEGIN XTAMNFB; 

TYPE<0 THEN TYPEMNFA, SUBCLASSil t 2 »47t 1 3 ; 

putjsplink «■ fnew, infa & 1etotypf3 & typec tosubcl 3 ) ; 
put(funvar# get(funvar) & varld ctoclass3 & 1ctotypf3 & 

typectosubcl1?; 
function; 



AND B00LEAN(1022})]*INFB 
A+I. [36111] ; 



IF 
IF 
IF 
IF 



; 



FLAGC167)END; 



05125100 
05126000 
05127000 
05127100 
START OF SEGMENT 
05128000 
05128100 
05129000 
05110000 
05130100 
05130110 
05130115 
05130120 
05130125 
05130130 
05130135 
05130140 
05130145 
05130150 
05131000 

05132000 
05133000 

05134000 
05135000 
147 IS 40 LONG 



T 0556 

T 0556 

T 0556 

T 0556 
********** 



0000 
0003 
0003 
0004 
0006 
0007 
0008 
0008 
0011 
0012 
0016 
0017 
0020 
0020 
0025 
0029 
0032 

0035 
0037 
NEXT SEG 



147 



PROCEDURE STATEMENT; FORWARD; 

PROCEDURE ASSIGN; 

BEGIN 

LABEL XIT; 

EQOS«-TRUE i 

executable; 

scan; 

if next * num then begin fl0gu09); go to xlt end* 

if xref then enterxcfnext* 04labelid ctoclass] )> 

emitnum(fnext); 
scan; 

IF NEXT * ID THEN BEGIN FLOG ( 105 H GO TO XIT END! 
IF XREF THEN ENTERXC XT A* UGETCFNEXT ) C 15 1 15 »93 ); 
_EMlXNt£NEXT)j 

emito(sto); 

scan; 

xm...._ ___. 

end assign; 



05136000 
05137000 
05138000 
05138100 
START OF SEGMENT 

P513.8UQ 

05139000 

05140000 

05141000 

051 "41500" 

05142000 

05143000 



T 

T 
T 
t 

* 

T 
T 
T 
T 
T 
T 
T 
f 
T 
T 



0556 

0556 

0556 

0556 
********* 



148 



148 IS 



05144000 
05144100 
051 4500 
05146000 T 
05147000 T 
05147100 T 
05148000 j 
17 LONG* 



0000 
0001 
0001 

0004 
0007 
0007 

0008 
0010 

_.0ftl4._.._. 
0014 

0015 
.0016- _ 

0016 
NEXT SEG 



PROCEDURE BUOCKDATA; 
BEGIN 

IF SPUNK NEQ THEN BEGIN FLAG(5>; ENDS; SEGMENTSTARTJ ENDi 

labl «• blanks; 
scan; 

splink «• -1; 
End blockdata; 



05149000 


T 


0556 


05150000 


T 


0556 


05151000 


P 


0556 


05151100 


T 


0560 


05152000 


T 


0560 


05153000 


T 


0561 


05154000 


T 


0562 



PROCEDURE CALL; 
BEGIN 



eods*true ; 
executable; 
scan; 
subref; 



END CALL; 



05155000 
05156000 
05156010 
05157000 
05156000 
05159000 
05160000 



0562 

0562 
0562 
0563 
0564 
0564 
0565 



PROCEDURE COMMON; 

COMMENT THIS PROCEDURE MAKES THE COM ENTRY FOR COMMON ITEMS AND SETS 

THE CE BIT IN BOTH THE COM AND INFO TABLES ANO LINKS 

THE HEADS OF CHAINS; 
BEGIN 

LABEL LOOP* BLOCK; 

TYPE * "Zi 

scan; 

if next * id then 

BEGTN 

z * need<*.blnk. w , blockidj; 

if xref then enterxc8l ank , m *0«8l0ck idctocl ass] >j 

go to block; 

END; 
LOOPI 

IF NEXT i SLASH THEN FLOgUIO); 

scan; 

if next ■ slash then 2 ♦ needc " .blnk , ", blockld) else 

BEGIN 

IF NEXT t ID THEN FL0GC105) ELSE 
X FORCF UNIQUE NAME BY APPENDING 1 TO NAME (2ND CHAR OF WORD) 
BEGIN Z ♦ NEED(NAMEt w l"C6»42l6]»BL0CKID>; 

if xref then enterxc name* o&blockidctoclass] ); 

scan; 

end; 

IF NEXT * SLASH THEN FLOGCllO); 

END; 

scan; 

BLOcKI 

IF (T*GETCZ*2)).ADINF0 » THEN 
BEGIN 

IF NEXTC0M*NEXTC0M+1>SUPERMAXC0M THEN 
BEGIN ROOT*0; FATALC124) END 

ELSE ROOT*NEXTCOM ; 



05161000 
05161100 
05161110 
05161120 
05162000 
05163000 
START OF SEGMENT 
05164000 
05165000 
05166000 
05167000 
05168000 
05168100 
05169000 
05170000 
05171000 
05172000 
05173000 
051 74 00 
05175000 
05176000 
05176500 
05177000 
05177100 
05T77200 
05178000 
05179000 

"bbtbtjiiw 

05181000 
05182000 
05183000 
05184000 
05185000 
05186000 
05186100 



0565 

0565 

0565 

0565 

0565 

0565 
********* 

0000 
OOOl 

oooi 

0002 
0002 
0004 
0007 
0010 
0016 
0010 
0012 
0012 

0015 
0017 
0019 
0019 
0022 

ff024 
0025 
0025 

mir 

0027 
0027 
0028 
0030 
0031 
0033 
0035 



149 



* l» 



* 



PUTCCaOQT#D«iHEAOERtTOCLASS341CTQCEl&ROflTtTOADDRJ) 

bapccz) ; 



END ELSE 
BEGIN 

ROOT 



* T.ADINFO; 

COMtCT*GETC(ROOT).tASTC),IR#T,lC3,LINK*NEXTCOM+l 
IF COMCPWROOTKO THEN FLAG<2) ; 



END 



END; 

dimension; 
bapccosendcomttoclassj) i 

COMCPWROOT JtLASfc*NEXTCOM ; 

put<t«.getc(r00t + 1) + 2#getct)&r00tct0adinf03) 
if next * semi then go to loop; 
common; 



051 8A2.0Q 
05187000 

05188000 
05189000 
05190600 
05191000 

osmjoo 

03192000 
05193000 
05194000 
05195000 
05196000 
05197000 



149 IS 



65198000 
66 LONG, 



0036 
0040 

0041 
0041 
0041 
0042 
0049 
0053 
0053 
0053 
0053 
0059 
0064 
0065 
NEXT Seg 



PROCEDURE ends; 
BEGIN 

TF SPLINK«0 THEN FLAGU84) ELSE 
BEGIN 

EODS*FALSE i 

IF LOGIFTOG THEN FLAG(lQl)J 

labl '*' blanks; 

if splink < then emito(xit) else 

segment((adr+4) div 4* nseg> true* 

end; 

end ends* 



EMITPAIRCO* 
EDOOJ 



KOM); 



55211000 

05212000 

05212005 

65212007 

05212010 

05213000 

05213106 

05214000 

05215000 , 

0521 6W0 P 

05217000 T 



0565 

0565 

0568 

0568 

0569 

057i 

0572 

0575 

■057T" 

0378 



FLAGC4) END; 



PROCEDURE ENTRY) 

BEGIN 

REAL SPi _ 

IF SPLINK * THEN FLAGClU) ELSE 
IF SPLINK » 1 THEN BEGIN ELX «• 0; 

LABL «• blanks; 

AOJUST I 

SP «• GET(SPLINK); 

FORfiALPPC n*SP.CLASS> » "FUNFD/ "f")"J """" 

GETALL(FNEW> INFA# INFB* INFO; 

IF INFA.CLASS » FUNID THEN 

PUf(FNEW, INFA & ICTOTYPFJ & < SP ', SUBCLASS) C T0SUBCL3 >J 
PUT(FNEW + 2# INFC & (AOR + DCTOBASE]); 
END ENTRY; 



032t«000 
05219000 
05220000 
S T A R f F" SEG ME NT 
05221000 
05222000 
65222160 
05222500 
052J3000. 
65224000 
05225000 
05226000 
05227666 
05228000 
05229000 



T 057* 
T 0579 
7 057? 

********** 
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T 0000 

T 0002 

T 6665 

T 0006 

T 0006 

! 050] 

T 0010 

T 0011 

t 0013 

T 0017 

_ T 0019 

156 IS 22 LONG, NEXT SEG 



PROCEDURE EQUIVALENCE; 

COMMENT THIS PROCEDURE MAKES THE COM ENTRY FOR EQUIV ITEMS AND 
THE EQ BIT IN BOTH THE COM AND INFO TABLES AND LINKS 



SETS 



65236000 T 0579 

65236166 T 0579' 
05230U0 T 0579 



BEGIN 



BEGIN 



BEGIN 



BEGIN 



BEGIN 



END 



THE HEADS OF CHAINS; 

REAL P> Q» R# S; 

BOOLEAN FIRST#PC0MM; 
LABEL XIT; 

IF LOGIFTOG THEN FLAG(lOl); 
LABL «■ BLANKS) 
DO 
J 

first * false; 
scan; 

if next * lparen then begin fl0g(106); go to xit eno; 
if nextcom*nextcom+i>supermaxcom then 
begin root*0; fatalup4) end 

ELSE ROOT+NEXTCOM ; 
PUTC(ROOT»OiHEADERCTOCLAsSHROOf tTOAODRJ) ; 

bapcco); o*o ; 

DO 

] 

scan; 

if next / id then begin fl0gu05h go to xit end; 
if xref then enterxc name#04get(fnext ) £ 151 15» 93 } ; 
fxi «• fnext; 

LENGTH * 0; 

scan; 

if next = lparen then 

IF GEf(FXU,CLASS y ARRAYIO THEN 
BEGIN XTA «• GETCFXl + 1); FLQG(ll2) END; 

r ♦ o; p «• 1; 

s ■■ ■;■ gct(fxi+2T,adinFo; 

do 

scan; 

if next * num or numtype t intype then flagu13); 
length * length + pxcfnext-1); 

P" «. PxEXfRAlNFO[(S + Rj;iR/CS + R).IC] ' T" 

R «. r-i; 

sc_an; 

UNTIL NEXT * comma; 

IF NEXT / RPAREN THEN BEGIN FL0G(108.); GO TO XIT END; 

IF R*-l THEN IF R*R + GETCFXl + 2 ) ,NEXTRAJ<0 THEN 

BEGIN xT ^GET(FXl + i ) ; FlAGC IF R>0 THEN 23 ELSE 24 ) END ; 

scan; 



end; 

BEG|N 
BEGIN 



IF riNFA*GETf(FxT)) < THEN 

BEGIN XTA * GETCFX1+1); FLAG(39> END ELSE 



IF INFA . SUBCLASS" ""> LOGfYPr'THEN LENGTH * IxLENGT H 7 " 

BAPCClNFA4FXltTOLlNKHLENGTHCTORELADD3iHTOE0 3 4ROOTtTOLASTC3); 
IF(PCOMM*BOOLEAN(INFA.CE)) OR BOOLEAN(INFA.EQ) THEN 

IF FIRST ANO PCOMM THEN BEGIN XTA*GETCFX1+1 ) ; FLAG(2> END 
ELSE IF NOT FIRST THEN FIRST «■ PCOMM; 
PUT(FX1»INFA 4 ltTOEOl); 
C0MCNEXTC0M,IR*NEXTC0M.IC3,LAStC * A * infa.addr; 



05230120 


T 0579 


05231000 


T 0579 


05232000 


T 0579 


TART OF SEGMENT 


********** 


05232050 


T 0000 


05232100 


T 0000 


05233000 


T 0000 


O5233TO0 


f "0002 


05234000 


T 0002 


05235000 


T 0003 


052~355W 


r 000s 


05236000 


r 0003 


05237000 


T 0004 


0523*000 


r ootre 


05238100 


r 0008 


05238200 


r 0010 


05238300 


r wiy 


05239000 


r oot4 


05240000 


r 0016 


05241000 • 


r 001? 


05242000 ' 


r 0017 


05243000 " 


r 0017 


05243200 ' 


r 0020 


05244000 


r 0023 


05245000 


r 0024 


05246000 ' 


r 0024 


05247000 ' 


r 0025 


05248000 


r 0026 


05T49000 '"' 


r 0026 


05250000 ' 


r 0028 


05251000 • 


r 0031 


05252000 ' 


r 0032 


05253000 


T 0035 


05254000 


T 0035 


05255000 ' 


r 0035 


05256000 ' 


r 0035 


05257000 


r 0038 


05258000 ' 


f 0040 


05259000 


r 0045 


05260000 


T 0046 


05261000 ' 


r 0046 


05262000 ' 


r 0048 


05262200 


r 0050 


05262300 ' 


f 0"055 


05263000 


r 0060 


05264000 


r 0060 


-05265We~' 


f 0060 


05266000 ' 


r 0062 


05267000 * 


r 0065 


^5267100 ' 


f 0W6~ 


05268000 ' 


r 0069 


0*269000 


r 0073 


05270000 ' 


r 0076 


05270100 ' 


r 0076 


05270200 ' 


r ooeo 


05270500 ■ 


r 0082 


05271000 ' 


r 0084 



151 



BEGIN 



END 
END 



END; 
END 



END 
X IT s 

end equivalence; 



B*GETCCROOT).ADDR I 
SETLINK(A) i 
IF NOT RINGCHECK THEN 
I 

COMCPWROOT].ADDR«-GETCCA).ADDR j 
PUTCCA,GETC(AHBCT0ADDRH7CT0SUBCU> i 

ELSE 

put(fx1,infa « 1ctoeq] & rootttoaddr 3 ) i 

if length > q then q * length* ' 

if booleanunfa.formad then 

begin xta ♦ get(fxim); flagch) end; 

until next * comma; 

if next i rparen then begin flogc108); go to xit end; 

scan; 

PUTCCROOT+l»Q) i 

bapcc08endc0mct0class:) ; 
comcpwrooti.lastonextcom ; 

until next * comma; 



05272000 


T 


0089 


05272050 


T 


0091 


05272100 


T 


0092 


05272200 


T 


0093 


05273000 


T 


0093 


05274000 


T 


0098 


05274200 


T 


0102 


05275000 


T 


0102 


05276000 


T 


0102 


05277000 


T 


0105 


05278000 


T 


0107 


05279000 


T 


0106 


05260000 


T 


0111 


05281000 


T 


0111 


05262000 


T 


0112 


05 2 8 3000 


T 


Oil 5 


05284000 


T 


0115 


05285000 


T 


0117 


05286000 


T 


0119 


05287000 


T 


0123 


05287100 


T 


0124 


05288000 


T 


0125 



151 IS 129 LONG* NEXT SEQ 



PROCEDURE EXTERNAL^ 
BEGIN 

IF SPLINK < THEN FLAG( 12); 

IF L0G1FT0G THEN FLAGClOl); 

LABL * BLANKS; 

DO 
BEGIN 

Scan; 

IF NEXT t ID THEN FL0GC105) ELSE 
BEGIN T * NEEDCNAME»EXTID); 

IT XRTF then enteRx :"Cn ame, O&GET < lYt 15* i 5 j 9~] yj 

scan; 
end; _ 

end until next x comma; 

END EXTfRNAl; 



05289000 


T 


0579 


05290000 


T 


0579 


05291000 


T 


0579 


05292000 


T 


0561 


05292100 


T 


0583 


05293000 


T 


0583 


05294000 


T 


0584 


05295000 


T 


O584 


05296000 


T 


0584 


05297000 


T 


0566 


05297300 


T 


0588 


05297500 


T 


0591 


05297800 


T 


0592 


05298000 


T 


0592 


05299000 


T 


0592 


05300000 


T 


0593 



procedure chain; 

BEGIN 

labfl agn* xif; 

REAl. ...Ill _.. _ 

DEFINE FLGCFLG1) « BEGIN FLOGCFLGIj; GO TO XIT ENDfJ 

executable; 

. .scan; 

Tl «. 2; 

IF FALSE THEN 



05300100 
053 00 I 50 
05 300T60 
START OF SEGMENT 
05,300170 
05300180 
05 300182 
05300184 
05300190 
05300210 



T 


0593 


T 


0593 


T 


0593 


********** 


T 


OOOQ 


T 


0000 


T 


0000 


T 


OOOQ. 


T 


OOOl 


T 


0001 



152 



AGNI If GLOBALNEXT t COMMA THEN FLG(28)i 
SCA W J 

IF fXPR(TRUE) > REALTYPE THEN FLG(102); 
IF (Tl ♦ Tl - 1) t THEN GO TO AGN; 
IF GLOBALNEXT X RPAREN THEN FLGC3)J 
EMItPAIR (37#KOM); 

scan; 

IP GLOBALNEXT t SeMI THEN FL0GU17); 

xiti while globalnext x semi do scan; 
end chain; 



152 IS 



05300220 


t 


0002 


05300230 


T 


0005 


05300240 


T 


0006 


05300250 


T 


0009 


05300260 


T 


0011 


05300270 


T 


0013 


05300280 


T 


0014 


05 300230 


T 


0015 


05300300 


T 


0017 


05300310 


T 


0020 


23 LONC 


if 


NEXT SEG 



PROCEDURE GOTOS; 

begin label xit* 

real assignedio; 

eod5*true ; 

executable; 

scan; 

if next « num then 

BEGIN 

labelbranch(name* false); 

scan; 

go to xit; 

END; 

if next ■ id Then 

BEGIN 

ASSIGNEDIO ♦ FNEXT; 

IF XREF THEN I ENTERXC xTA'O&GETrFNEXT )1 15 1 15 I 9 3 ); 

scan; 

IF NEXT * COMMA THEN FL0G<li4)J 

scan; 

if next * lparen then fl0g(106); 

DO 

BEGIN 

scan; 

if next t num then fl0gc109); 

EMlTV(ASSIGNEDlb); 
EMITNUM(FNEXT); 
. . EMJIOXNEQL); 

labelbranchcname, true); 

scan; 
end until next * comma; 

If NEXT 7 RPAREN" THEN FL0G( 108)1 " 

scan; 

_EMlTPAlR(lf SSN); % CAUSE INVALID INDEX TERMINATION 



.e.no;. 



BEGIN 



emitdesclit(io); 
go to xit; 

IF 'NExf ~* IPAREN "THEN FLOG (1067; 

p ♦ o; 

DO 

I 
scan; 





05301000 


T 0593 




05302000 


T 0593 




start of segment 


********** 




05302100 ' 


r oooo 




05302110 ' 


r oooo 




05303000 ' 


r oooo 




05304000 • 


r oooi 




05305000 « 


r oooi 




05306000 ' 


r 0002 




05307000 ' 


r 0003 




05308000 ' 


f 0004 




05309000 ' 


r 0004 




05310000 " 


r 0005 




0531W00 '"■• 


r 0005 




05312000 " 


r 0005 




05313000 1 


r 0006 




05313200 i 


r 0007 




05313300 1 


r ooio 




05313600 l 


r ooio 




05314000 1 


r 0012 




05314300 1 


r 0013 




05314600 1 


r 0015 




05315000 1 


r ooi6 




05315300 1 


r ooi6 




05315600 1 


r ooi6 




05316000 1 


r ooi8 




05316300 1 


r oot9 




05316600 1 


r ooao 




0531T001T1 


f"TTOS0 - 




05317300 1 


r 0021 




05317600 1 


r 0022 




" "SSSieWfi"! 


. 0013" 




05318200 1 


' 0025 




05318400 1 


' 0026 




0531860~6 1 


' 0~0~27 




05319000 1 


0027 




05320000 1 


0028 




05321000 1 


0028 




05S22000 1 


' 0030 




05323000 1 


• 0031 




05324000 1 


' 0031 




05325000 I 


• 0031 



153 



IF NEXT * . NUM 
LSTTCP*P + 13 «■ 



then begin fl0g(l09); go to xit end; 

name; 



END 



scan; 

until next * comma; 

IF NEXT t RPaREN THEN BEG IN FLoGC 108 ); GO TO XIT END; 

scan; 

IF NEXT t COMMA THEN BEGIN FCOG(ll«W GO TO XlT END; 

scan; 

it * p*i; x dont let expr wipe out lstt 

if exprctrue) > reautype then fl0gc102); 

emiTpaiW(JUNk» isn); 

emitpair(1#less); 

emitopoclit(junk); 

EMlTPAlRrP»GRTR); 
EMITO(LOR); 

EMLI0.PJ3CLIT(JUNK); 

EMITLC3); 

EMlTO(MUU); 



END 



IF ADR+3xp > 4085 THEN BEGIN AOR*AOR+i; SEGOVF END; 

EMITO(BFC); 

EMITPAIRCI* SSN); 

EMITOESCLITCIO); 

FOR I «• 1 STEP 1 UNTIL P DO 
BEGTN 

J *■ ADR; LABELBRANCHCLSTTtn* FALSE); 

IF ADR-J » 2 THEN EMITOCNOP); 
END; 
XIT| 

it «• o; 
goths; 





05126000 T 


0031 




05127000 T 


0034 




05328000 T 


0036 




05329000 T 


0036 




03X50000 T 


0038 




05331000 T 


0040 




05332000 T 


0041 




O3353SO0 T 


004T 




05334000 T 


0044 




05335000 T 


0045 




O5TS3W0 T 


0047 




05337000 T 


0048 




05338000 T 


0049 




05339000 T 


noroTo '" 




05340000 T 


0051 




05341000 T 


0P52 




05342000 T 


0053 




05343000 T 


0053 




05344000 T 


0054 




05345000 T 


0054 




05346000 T 


0058 




05347000 T 


0059 




05348000 T 


0060 




05349000 T 


0061 




05349^00 T 


0063 




55349200 T 


0061 




05349300 T 


0065 




05349400 T 


0067 




05350000 "t" 


0069 




05351000 T 


0070 




05352000 T 


0070 


133 


IS yy^oNG, 


NEXT SEG 



PROCEDURE IFS; 
BEGIN REAL TYPE* 



LOGIFAOR/ SAVELABL; 



eods+true ; 

executable; 

scan; 

if next i lparen then flqgc106); 

scan; 

IF TY'PE ♦ 
IF NEXT i 
IF TYPE • 



BEGIN 



EXPR(TRUE) * COMPTYPE THEN FLAGC89); 
RPAREN THEN FL0GC108); 
LOGTYFe THEN 



emjltb<_m,_true>; 
logifaor * lax; 
logIftog «• true; 
savelabl ♦ la8l; 



05353000 
05354000 
START OF SEGMENT 
05 3540 JO 
05 355006 
05356000 
Q5 357000 
05358000 
05359000 
05360000 
65361000 
05363000 
05363000 



T 0593 
t 059 3 

********** 



154 



END 



statement; 

labl * savelabl; 

logiftog * false; 

fixbcl0g!fa~drj7 '"" 

ELSE 



EOSTOG 
LABL «■ 



♦ true; 

BLANKS; 



eostog ♦ false; 



I. 
T 

t 

_T 
f 
T 

T 
T 
T 
T 



OOOQ 

0660 
oooi 



0003 
0004 
0007 
0009 
00 10 
0010 



05364000 
05365000 
05 365100 
05T66000 
05366100 
05 3670 00 
O~53680OO 
05369000 



T 
T 
T 



0011 
0012 
0015 

U0T6 
0017 
0017 

-OTlO" 
0021 



KB 



BEGIN ..... 

if type ■ dou 
begin emitocx 
scan; 

IF NEXT * NUM 
FX1 * FNEXT' 

scan; 

if next * com 

scan; 

if next * num 

FX2 * FNEXf; 

scan; 

if next * com 

scan; 

if next * num 

FX3 * fnext; 

scan; 

IF FX2 m FX3 

BEGIN 

EMTTPAIRCCGE 
LABELBRANCHCN 
LABELBRANCHCN 
IF XREF THEN 

END ELSE 

IP pxi ■ FX3 

BEGIN 

EMITPAIR(0>NE 
LABELBRANCHCN 
LABELBRANCHCN 
IF XREF THEN 

END ELSE 

IF FX1 * FX2 

BEGIN 

EMITPAIRC0»LE 
LABELBRATCRTN 
LABELBRANCHCN 
IF XREF THEN 
ELSE 



BTYPE THEN 

CH); EMITOCDEL) END; 

THEN FLOG C 109); 
NX1 * NAME* 

MA THEN FlOGCiH); 
THEN FL0GC109); 

NX2 * name; 

MA THEN FL0GC114); 



THEN 

NX3 ♦ 

THEN 

q l ) ; 

XI* TR 
X3# FA 
ENTER X 

THEN 

qd; 

X?# TR 
Xl» FA 
ENTERX 

THEN 

qd; 

X3» TR 
XI* FA 
ENTERX 



FL0GC1O9); 
NAME* 



UE)i 

lse); 

CNX2»0&LABELlDCT0CLASS]); 



UE); 

lse); 

CNX3#04LABELlDtTOCLASS3); 



UE); 

lse); 

CNX2#04LABELlDtT0CLASS3); 



END 
BEGIN 



EMITOCDUP); 
EMITPAIRC0#NEQL); 
EMITBC-1# TRUE); 
EMITPAJR<0#LESS); 
LABELBRANCHCNX3# TRUE)) 
LABELBRANCHCNX1* FALSE); 
FIXBCLAX); 

emitocded; 

LA8ELBRANCHCNX2* FALSE); 



END J 

END; 

END IFS) 



154 IS 



05370000 
"D'S i'37 "i 000 
05372000 
05373000 
Q5374000 
05375000 
05376000 
05377000 
05378000 
05379000 
05 380000 
05381000 
05382000 
05383000 
05384000 
05385000 
65386000 
05387000 
05388000 
05 389000 
05390000 
05391000 
05391200 
05392000 
05393000 
05 394660 
05395000 
05396000 
65W606 
05397200 
05398000 
05599000 
05400000 
05401000 
TJ5T0T000 
05403000 
05403200 
054 OWOO" 
05405000 
05406000 
05407000 
05408000 
05409000 
05 41 0606 
65411666 
65412666 
6541 3666 
05414000 
054l5_00p 
65416000 
05417000 
75 LONG, 



0021 
0021 
0022 
0024 
0024 
0026 
0028 
0028 
0030 
0031 
6033 
6634 
6035 
0037 
0037 
0039 
6641 
6641 
6642 

6643 
6644 

6645 
0046 
0048 
0048 
6650 
0050 
0051 
6052 
0053 
0056 
0656 
0057 
0058 
0TJ59 
0060 
0061 
60*1 
0063 
0064 
0065 
0066 
0067 
0068 
0069 
0070 



0071 
0072 
007 2 ~ 
6672 
NEXT SEG 



PROCEDURE NAMEL; 



65430666 T 6593 



begin label nim*xit>Elmnt#wrap; 



sc 

NIMI Sc 
IF 

PlJ 

el 
Br 

En 
LS 
IF 
Sr 
ELMNTt s 
LA 
If 

GF 

If 
If 

LS 
IF 

BF 



IF SPLINK < 

IF LOGIFTOG 

LABL * BLAN 

AN; IF NEXT 

an; IF NEXT 

J «■ CINFA «• 

T(LAOR2#INFA 

SE IF J * NA 

GIN XT A <■ GE 

FLAG(20) 

d; 

TTiLSTS ♦ 

xref then e 
an; if next 
can; if next 

DR1 «• LAORt 

(T «■ GETCFN 

TALLCFnEW'IN 

XREF THEN E 

LSTS * LSTS 

TTtLSTS] «• N 

T m ARRAYID 

GIN J * INFC 

I ♦ INFC 

IF LSTS 

BEGIN FL 

LSTTtLST 



THEN FLAGC12); 
THEN FLAGUOl); 

ks; 

t SLASH THEN FLOG(llO) 
* ID THEN BEGIN FLOGCl 
GETCLA0R2 «■ FNEXT)).CL 

&NAMELISTCTOCLASS]) 

MELIST THEN 

t(LADR2 ♦ l)> 



; 

05); 

ASS 



GO TO xit end; 

9 unknown then 



1 «• 0] 

NTERXCNA 

i SLASH 

i ID TH 

+ H 

EW * GET 
FA#iNFB, 
NTERXdN 
+1 * LST 
AME&INFA 

THEN 
•ADINFO; 

.nexTra; 

♦ I + 1 
0GC78); 
S * LSTS 



* NAME) 
ME#OtNAMELlSTtT 

THEN FLOG(ilO) 
EN BEGIN FLOGCl 

space(fnext)).c 
info; 

FB*0&INFA[15U5 
MAX THEN BEGIN 
,CLASNSuBt2l38« 



OCLASS)); 

05); GO TO xit end; 

LASS) > VARIO THEN FLAGU8); 

i9]); 

FL0G(78); GO TO XIT END ELSE 
lOH0[8M7»n; 



En 
if 

Sr. 
if 

LS 
LS 
PR 
IF 

XIT! 

END NAMf 



FOR T «• 

lsttclst 

d else begin 

booleancinf 

AN; IF NEXT 
NEXT i SFMI 

ttclsts + 1] 

Tfcoi.c2«ibi 
tsaver(ladr2 

next ./ ..semi 

l; 



J STEP - 

S * LSTS 

LSTTCLS 

A.CE) TH 

s COMMA 
AND NEX 

* o; 

* LADRl 
#LSTS + 
THEN GO 



> LSTMAX then 
GO TO XIT end; 
"♦ U ♦ 6&ici»4 

4INFA. 

4INFC. 

&INFC, 

1 UNTIL J " I + 

+ 1] ♦ EXTRAIN 

fS*LSTS+l)*0&CI 

EN LSTT[LSTS3*L 

&INF 

THEN GO TO ELM 

T t SLASH THEN 

; 

2#LSTT); 

to nim; 



216] X #~ DIMENSIONS 

ADDRC7I37U13 X REL ADR 

BASEC18I33U53 X BASE 
. s -._ 2 ^.. ( ..„^._„_._. i . s . J _. 4 _ s . 2e 

1 DO 
FQCT.IR#T.IC3; 
NFA,AbDR)lC7l37tii3; 
STT [LSTS 3 1 INFC, BASE [ 18 1 33* 153 
C.SIZEC33I33I 153 END; 
NT i 
FL0GCX15); 



05431000 
START OF SEGMENT 
05432000 
05433000 
05433160 
05434000 
054 35000 
054 36000^ 
05437000 
05438000 
054 39000 

05440000 
05441000 
05W2000 

05442500 

05443000 

05444000 

05445000 

05446000 

05 44 7000 

05447500 

05448000 

05448500 

05449000 

05450000 

05451006 

05451100 

05451200 

05452666 

65453000 

05454000 

05455606 

05456000 

05457000 

65458666 

05458400 

05458600 

05 45900 0~ 

05460000 

05461000 

65462066 

05463000 

05464000 

"05465666 
05466000 
155 IS 96 L_ONG 



T 0593 

********** 

T 0000 

T OOOg 

T 6664 

T 0004 

T 0007 

T 6011 

T 0014 

T 0016 

T 60 18 

T 0020 

T 0021 

f OOZl 

T 0023 

T 0026 

T 0028 

T 0032 

T 0033 

"f" 0037 

T 0039 

T 0042 

T 0045 

T 0049 

T 0050 

T 0052 

T 0053 

T 0055 

T 0057 

T 0059 

T 006 1 

f 006 i a 

T OO63 

T 0068 

f 6673 

T 0077 

T 0080 

f 0082 

T 0084 

T 0087 

f 0088 

T 0091 

T 0093 

T 6694 

T 0095 
NEXT SEG 



155 



PROCEDURE PAUSE; 

IF OClNpUT THEN BEGIN 

BEGIN 

E0D5*TRUE ; 

if tsseditog 

executable; 

scan; 



XTA«."PAUSE "; FL..QGC 151 ) END ELSE 



THEN TSSEDC'PAUSE "*2_> i 



05467000 T 0593 

05467100 T 0593 

05468666 T 0596 

05468010 T 0599 

05468100 T 0599 

65469066 f 0602 

05470000 T 0602 



IF NEXT * SEMI THEN EMITLCO) ELSE 
IF NEXT « NUM THEN 

BEGTN 

emitnum(name); 
scan; 

ENDI 

emitpairc33* kom); 
emito(del>> 
end pause; 



05471000 


T 


0603 


05472000 


T 


0605 


05473000 


T 


0607 


05474000 


T 


0608 


05475000 


T 


0609 


05476000 


T 


0609 


05477000 


T 


0609 


05477100 


T 


0610 


05478000 


T 


0611 



PROCEDURE TYPIT(TYP#TMPNXT); VALUE TYP; REAL TYP,TMPNXT ; 
BEGIN 

TYPf4-TYp; SCAN i 
IF MEXT«16 THEN BEGIN TMPNXT*16; FUNCTION END ELSE DIMENSION ; 

END OF TYPIT J 



05479000 
05480000 
05480010 
05480020 
05480040 



0611 
0611 
0611 
0613 

0617 



DEFINE COMPLEX 
LOGICAL 

DOUBLEPRECISION 
INTEGERS 
REALS 

:dure stop; 



PROCEI 
BEGIN 



'■TYP rrccOMP TYPE* TEMPNEXYT 
sTYPIT(LOGTYPE #TEMPNEXT) 
■TYPITC DOUBT YPE#TEMPNEXT) 
■ TYPIT ( INTYPE # f E'MP NE X f ")" 
»TYPIT(REALTYPE#TEMPNEXT) 



#» 

i$ 
Ml 



RETURNFOUND *■ TRUE; 

EODS*TRUE ; 

EXECUTABLE^ "" 

COMMENT INITIAL SCAN ALREADY DONE; 

imiuni 

EMITPAIR<16* STD)J 
EMITPAIRC10* KOM); 

EMITPAIR(5# KOM); 
.„„.._.„_.__.__._._ e _._...^„.. S ^^ N; 



end stop; 



05481000 
05482000 
05483000 
05484000 
05484500 
05485000 
05486000 
05486100 
05486U0 
0~5~4 87000 
05488000 
05489000 
054901)00 
05491000 
05492000 
"05493000" 
05494000 



T 


0617 


T 


0617 


T 


0617 


T 


0617 


T 


0617 


T 


0617 


T 


0617 


T 


0617 


T 


0619 


T 


0620 


T 


0621 


T 


0621 


T 


W2i 


T 


0622 


T 


0623 


T 


0624 


T 


0627 



PROCEDURE RTTWNT" 
BEGIN LABEL EXIT; 



054 9 50 00-T —0627 



REAL >"f# xTTOODEi 

returnfound * true; 
eoqs*true ; 

EXECUTAlLtT" 



scan"; 

IF SPLINK«0 OR SPLINK«1 THEN 

BEGIN XTA*"RETURN*; FL0G(l53); 
IF NEXT ■ SEMI THEN 



05496000 
START OF SEGMENT 

" "" S549T0IT0 

05497100 
05497110 



GO EXIT END ; 



BEGIN 



05498100 
05498200 
O5W9OU0 
05499100 
05499U0 
05500000 
05501000 



T 0627 
********** 



156 



DOW 
0000 
OOOl 

"0W2~ 
OOO3 

0003 
0003 
0003 
0005 
0009 
0009 



% VOID 



IF (T «■ GETCSPLINK}). CLASS = FUNlO THEN 



N 



END 
IF A 



SEGOVF END; 
X F + 2 



END; 



EMITV(FUNVAR)J 

IF T f SUBClASS > LOGTYPE THEN EMITPAIRC JUNK# STD); 
XITCOOE * RTN) 
ELSE XITCQDE * XIT; 
OR * 4077 THEN 
BEGIN ADR * ADR+i; 
EMIT0PDCLITC1538); 
EMITPAIRC3* BFOI 
EMITPAIRC10' KOM); 
EMITO(XITCOOE); 
EMIT0PDCLIT<16); 
EMITPAIR(1* SUB); 

emitpairc16* std); 
emito(xitcode); 
go to exit; 

if labelmom » then fl0g<145); 
if expr(true) > realtype then flag(102); 
if expresult * numclass then 

begin if xref then enterxcexpvalue* 04label 10 ctoclass] ); 
adr «• adr-i;emitl<expvalue-i) 

END ELSE 

EMITPAIRC1* SUB); 

EMITOPDCLIT(LABELMOM); 

EMITO(MKS); 

EMlfLC9); 

EMITOPDCLIT(S); 



END 



EXIT! 

return; 



156 IS 



8SH888 


T 
T 


m 


05504000 


T 


0012 


05505000 


T 


0013 


05506000 


T 


0013 


05507000 


T 


0016 


05508000 


T 


0017 


05509000 


T 


0018 


05510000 


T 


0019 


05511000 


T 


0021 


05512000 


T 


0022 


05513000 


T 


0023 


05514000 


T 


0024 


05515000 


T 


0025 


05516000 


T 


0025 


05517000 


T 


0026 


05518000 


T 


0027 


05519000 


T 


0028 


05520000 


T 


0031 


05520100 


T 


0031 


05521000 


T 


0033 


05521100 


T 


0035 


05521200 


T 


0036 


05521400 


T 


0039 


05521600 


T 


004i 


05522000 


T 


0042 


05523000 


T 


0043 


05524000 


T 


0044 


05525000 


T 


0045 


05526000 


T 


0045 


05527000 


T 


0046 


O5528T000 


T 


0046 


05529000 


T 


0047 


50 LONC 


\t 


NEXT SEG 



PROCEDURE IMPLICIT ; 
BEGIN 
REAL R1*R2*R3/R4 ; 

LABEL R#A>X»L_; _ 
IF N0T(LASfNEXTn42 OR LASTNEXT ■1000 OR LASTNEXT*30 
OR LASTNEXT*16 OR LASTNEXT * 11) 
THEN BEGIN FLOGUsn* FILETQG*TRUE; GO X END ; 
R i E09T60*cffRORf OB*TRun~'r ILEf Off*? ALSE / 

MOVEW(AccuMC33»ACcuMt23#o,3j; scan; errortog*false; filetog*true ; 

IF Rl»IF R3»NEXT» 18 TH EN INTIQ ELSE IF R3"26_THEN REALlD ELSE 0& 

(IF R3«10 THEN DOUBTYPE ELSE IF R3M9~ then LOGTYPE ELSE~"I'F~"R3T' 
6 THEN COMPTYPE ELSE 0) [ T0SUbCL3"0 THEN 

begin f^0g(182); go % end ; 
scn*2; scan ; 
if next. star then if r3*10 then 

begin scan j 

if next-num and numtype*intype then 

BEGIN 



START 



05529100 T 0627 






05529105 T 0627 






05529110 T 0627 






OF SEGMENT ********** 


157 




05529120 T 0000 






05529130 P 0000 






05529131 C 0002 






05529140 T 0004 






05529210 f "0"00~7 






05529215 T 0010 






05529220 T 0014 






05529230 T 0018 






05529240 T 0022 






05529250 T 0026 






05529260 T 0028 






05529270 T 0029 






05529280 T 0031 






05529290 T 0032 






05529300 T 0034 







■ 



IF FNEXT*4 THEN BEGIN IF R3«6 THEN FJ.AGC176); GO I END J 
IF FNEXTa8 THEN 

BEGIN 

IF R3»26 THEN Rl*0&DOUBTYPECTOSUBCL3 

ELSE IF R3>6 THEN FLAGC 177) ; 

GO t ; 

end ; 

END ) 

FLAGUF R3«26 THEN 178 ELSE 177-REALCR3*6 ) ) ; 
L« NCR«-REAL(NCR,C30l33*0) + 3"677777 w + NCR; SCN«-i; SCAN ) 
END i 
IF NEXTXLPAREN THEN BEGIN FL0GC106>; GO X END J 
ai scan; R4+ERR0RCT ; 

IF R2*NAME.[12 f 6T<l7 OR (R2>25 AND R2<33) OR (R2>41 AND R2<50) 

OR R2>57 OR NAME.C18I30]*" " THEN FLAG(179) i 
SCAw i 
IF NEXT^MINUS THEN 

BEGIN IF £RRORCT*Rfl THEN TIPEtlF R2**»0" THEN R2 ELSE 12J»Rl ENO 
ELSf BEGIN 
SCAN ; 
IF R3*NAME.Cl2»6]<i7 OR (R3>25 AND R3<33) OR <R3>4l AND R3<50) 

OR R3>57 OR NAME . t 1 8« 30l^ w " THEN FLAG(l79) ; 
IF R3 LEQ R2 THEN FLAGC180) ; 

IF ERR0RCT«R4 THEN FOR «2«-R2 STEP 1 UNTIL R3 DO 
BEGIN 
IF R2>25 AND R2<33 THEN R2*33 ELSE IF R2>41 AND R2<50 

THEN R2*50 ; 
TIPEtlF R2/"0 W THEN R2 ELSE 123*R1 ; 
END I 
SCAN i 

END I 
IF NEXt*COMMA THEN GO " A ; 
IF nEXT*RPAREN THEN BEGIN FL0G(108); GO X END J 

scan; if next»comma then go r ; 

IF nEXT^SEMI THEN BEGIN 'FLOS'* 117 >) GO X END ; 
IF SPLINK>1 THEN 
BEGIN 

IF BOOLEANCTYPE.C2iny THEN IF GETC SPL fNK ) ','l'l»'SSSF WtD THEN 
BEGIN 

INF0CSPLINK,IR,SPLINK.IC3.SUBCLASS*R3*TIPECIF R3«-GETC 
SPLlNk*i) t [12t63X"Q" THEN R3 ELSE 123, SUBCLASS "> 
INFOtFUNVAR,IR»FUNVAR.IC3.SUBCLASS*R3 ; 

end ; 

IF RUGETCSPLiNK + 2)<b THEN 

FOR R2*R1,NEXTRA-1 + R1«-R1,ADINF0 STEP -1 UNTIL Rl DO 
IF R3*PARMLlNK[R2-RU13/0 THEN 

BEGIN "~ "~ " " " "~ 

EXTRAINFOtR2.IR,R2.IC3,SUBCLASS*R4»TlPECIF R4* 
G£T(R3+l),[12t63*»0» THEN R4_EJ.SE i2J_ 

.subclass; 
inf0cr3.ir#r3,ic3.subclass*r4 ; 
e n_d ; 
end ; 
xt while next*semi do scan; filetog*false ; 

ENft OF IMPLICIT ; 



157 



05529310 T 


0035 


05529320 T 


0038 


05529330 T 


0039 


05529340 T 


0040 


05529350 T 


0042 


05529360 T 


0045 


05529370 T 


0046 


05529310 T 


0046 


05529390 T 


0046 


05529400 T 


0049 


0352T94T0 f 


0054 


05529420 T 


0054 


05529430 T 


0058 


0557W40-T 


0059 


05529450 T 


0064 


05529460 T 


0068 


05529470 "f 


0069 


05529475 T 


0070 


05529480 T 


0074 


05529490 T 


0077 


05529500 T 


0077 


05529510 T 


0082 


05529520 T 


0087 


05529530 T 


0089 


05529540 T 


0092 


05529550 T 


0092 


05529560 T 


0096 


05529570 T 


0098 


05529580 f 


0101 


05529590 T 


0104 


05529600 T 


0104 


05529610 f 


0104 


05529620 T 


0105 


05529630 T 


0108 


U552?6T5 T 


on 6 


05529640 T 


0112 


05529650 T 


0113 


0552W6O T 


0113 


05529670 T 


0116 


05529680 T 


0117 


05529690 T 


0120 


05529700 T 


0126 


05529710 T 


0131 


05529720 T 


0131 


05529730 T 


0133 


05529740 T 


0140 


353W50 T 


T5142 


05529760 T 


0143 


05529770 T 


0145 


05529780 T 


"0150" 


05529790 T 


0152 


05529800 j 


0156 


"05529810 T 


157 


05529820 T 


0157 


05529830 T 


0161 


S 164 "LONG* 


NEXT SEG 



* t- 



procedure subroutine; 

BEGIN 

if splink neq then begin flag(5); ends; segmentstart; end; 
labl * blanks; 
forma(„pp{false* subrid)* 
splink «• fnew; 
end subroutine; 



05530000 


T 


0627 


05531000 


T 


0627 


05532000 


P 


0627 


05532100 


T 


0631 


05533000 


T 


0631 


05534000 


T 


0632 


05535000 


T 


0633 



PROCEDURE MEMHANDLER<Ny; VALUE W REAL N ; 

BEGtN 

REAL A ; 

labfl li#L2#L3#xit ; 

IF nEBUGTOG THEN FLAGR0UTINE< " MEMHa",«NOLER «,TRUE) ; 
IF w LEO 2 THEN 

BEGIN X FlXED*l* VARYING»2. 

N*IF N»l THEN 6 ELSE ; 
Lll SCAN ; 

if next*io then begin fl0gc105); go xit end ; 
if <a4.getcgetspace(fnext))),class*arrayid then 

begin fl0gc35); go xit end ; 
if xref then enterx (xt a* o&a c 15 i 1 51 9 j ) ; 
if b00lean(a,e<3) or booleanc a. formal ) then flagc169) 
else begin 

emitO(mks>; emitpair<a,aodr,lod); emitlcnj ; 

emitv(need(«.memhr m *intrfunid>) j 

end ; 
scan; if next»comma then go li ; 

END 
ELSE IF N«3 THEN 

BEGIN % AUXMEMED FUNCTION OR SUBROUTINE. 
SCAN ; 

IF NEXT/ID THEN BEGIN FLOG? 105)T GO XIT END"; 
IF GET<FNEXT+l)yGET(SPLINK+l) THEN 
BEGIN FLOGC170); GO XIT END ; 
PUTCSPLlNK#GET(SPLINK)iltTOADJ]) ""I" 

IF XREF THEN ENTERXC XTA* 0»GET(FNEXT) 1 15 » 15 I 93 ) ; SCAN ; 
END 
ELSE BEGIN X RELEASE, 
L2t SCAN ; 

IF NEXT/ID THEN BEGIN FL0G(105); GO XIT END ; 
IF (A*GET<GETSPACECFNEXT))) f CLA5S*^ 
BEGIN 

if booleanca.eq) or booleanc a. formal) then flagc169) 
else begin 

emitocmkS); emitpair(a.addr#lod) ; 

emitpair(1»ssn) ; 

EMlTV(NEEDC M .MEMHR w »iNfRFUNiD)) ) 

END ; 
L3» IF XREF THEN ENTERX (XTA>04A[ 151 15«9 ] ) j 

END 
ELSE IF A.CLASSiBLOCKlD OR , A, CLASSiL ABELID THEN 



05535010 


T 


0633 


05535020 


T 


0633 


05535030 


T 


0633 


ART OF SEGMENT 


******* 


05535040 


T 


0000 


05535045 


T 


0000 


05535050 


T 


0002 


05535060 


T 


0002 


05535070 


T 


QQ03 


05535080 


T 


0006 


05535090 


T 


0006 


05535100 


T 


0011 


055 35 "lib 


T 


0013 


05535120 


T 


0015 


05535130 


T 


0018 


Q5T35TS0 


T 


0020 


05535150 


T 


0021 


05535160 


T 


0024 


05535170 


f 


"0026 


05535180 


T 


0026 


05535190 


T 


0028 


05535200 


T 


0028 


05535210 


T 


0030 


05535220 


T 


0031 


05535225 


f 


0031 


05535230 


T 


0034 


05535235 


T 


0037 


05535240 


T 


0038 


05535250 


T 


0041 


05535420 


T 


0045 


05535430 


f" 


0045 


05535440 


T 


0045 


05535450 


T 


0046 


655 35460 


T 


0049 


05535470 


T 


0051 


05535480 


T 


0052 


05535490 


f 


0054 


05535500 


T 


0055 


05535510 


T 


0058 


05535520 


T 


0059 


05535530 


T 


0060 


05535540 


T 


0060 


05535550 


T 


0063 


05535560 


T 


0063 







_._ _ 



158 



• 



BEGIN FL0GC171); GO XJT 
ELSE BEGIN 

EMITPAIRCA.ADDR,10D); EMITPA IR( 38»KQM) ; 

emito(del); go u3 j 

end ; 
scan; if next»comma then go 12 ; 
end ; 

XITHF pEBUGTOG THEN FLAGROUTINEC " MEMHA% H NDIER ""#FAL5'E> I 
END OF MEMHANDUER t 



05535570 


T 


0068 


05535575 


T 


0070 


05535580 


T 


0071 


05535585 


T 


0073 


05535590 


T 


007« 


05535595 


T 


0074 


05535600 


T 


0076 


05535605 


T 


0076 


05535610 


T 


0079 



158 IS 84 LONG* NEXT SEG 



proceoure statement; 

BEGIN LABEL D0L1' XlT; 

Rtal tempnext ; 
800LEAN endtog; 

do scan until next * semi; 

if next=id then assignment else if next leo rsh1 then 

case(tempnext*next) of 

BEGTN 

FL0GC16); 

assign; 

ioctiMMANDU); 

blockdata; 

call; 

common; 

complex; 

begin executable; scan end; 

lbC0MMANDC7); % "DATA 

BEGIN SCAN; TYPE ♦ -i; DIMENSION END; 

doubleppecision; 

begin ends; endtqgi«true; scan end; 



START 



^BACKSPACE 



% continue 



filecontrolcd; 

entry; 

equivalence; ' 
external; 
begin type 

GOTOSj 

integers; 

logical;_ 

namel; 

pause; 

iocommand<2); 

; " "" 

iocommanoo); 

iocommandco); 

reals; 

return; 

filecontrolco; 

begin scan; "STOP 

subroutine; 

IOCOMMAND(l); 

FILEC0NTR0LC7); 

FILEC0NTR0LC6); 



XENOFILE 



-i; function end; 



SPRINT 

XPUNCH 
XREAD 



XREWIND 

end; 

XWRITE 
XCLOSE 
XLOCK 



05536000 


T 0633 


05537000 


T 0633 


OF SEGMENT 


********** 


05537100 


T 0000 


05537200 


5 0000 


05538000 ' 


f 0000 


05539000 ' 


r 0001 


05540000 ' 


r 0004 


05541000 ' 


r 0006 


05542000 ' 


r 0006 


05543000 ' 


r 0008 


05544000 " 


r 0009 


05545000 ' 


r 0010 


05546000 ' 


r 0011 


055T7000-- 


f 0012 


05548000 ' 


r ooi3 


05549000 * 


r 0015 


05555000 1 


r 0016 


05551000 ' 


r 0017 


05552000 1 


r 0020 


05553000 F 


» 0022 


05554000 1 


r 0024 


05555000 1 


r 0025 


05556000" 1 


r 0026 


05557000 1 


r 0027 


05558000 1 


r 0028 


05559000 1 


r 6630 


05560000 1 


r 0031 


05561000 1 


r 0033 


O~5562000~ 1 


; 0035 


05563000 i 


■ 0036 


05564000 1 


' 0037 


O5565W0 1 


'-' 0038 


05566000 7 


' 0038 


05567000 1 


0040 


05168000 1 


~ifwr ■ ■ 


05569000 7 


* 0043 


05570000 7 


0044 


05571000 7 


0045 


05572000 7 


0047 


05573000 7 


0048 


05573100 7 


0049 


05573200 7 


0051 



159 



* ^ 



filecontrolu); spurge 
ifs; 

formater; 
chain; 

memhanoleRcd ; %fixed 
memhandlerc2) ; xvarying 
memhandlerc3) / xauxmem for subprograms 
memhandlerca) ; xrelease 
implicit ; 
end elsf if next*eof then go xit else begin next*0; fl0gc16) end ; 



LASTNEXT,C33ll5UTEMPNEXT ; 

IF NOT ENDTOG THEN IF SPlINK-0 THEN" SPlTNKW 

enotogi-falSe; 

if labl * blanks then 

BEGIN 

IF DT i THEN 

BEGIN 

DOLU IF LABL « DOLABCTEST «■ DT] THEN 
BEGtN 

EMITBCDOTESTCDT3, FALSE); 

FlXB(DOfESftDT3.AbbR)i 

IF DT * DT«1 > THEN GO TO DOLU 
END ELSE 

WHILE TEST ♦ TEST-1 > DO 

IF DOLABCTEST] * LABL THEN FLAG<H)> 
ENDt 

LABL * BLANKS; 
END; 

IF NEXT > SEMI THEN 

begtn 

flaG(h7); 

do scan until next«semi or next*eof ; 

END; 

ERRORTOG * FALSE; 

EOSTOG * true'; 
XlTt 

END STATEMENT.; 



05573300 


T 


0052 


0557*000 


T 


005 3 


05575000 


T 


0054 


05575100 


T 


0055 


05576000 


y 


0056 


05576100 


T 


0058 


05576200 


T 


0059 


055770W 


t 


0061 


05577100 


T 


0062 


; 05578000 


T 


0063 


START OF SEGMENT 


^********* 160 


160 IS 44 LONG, 


NEXT SEG 159 


05578100 


T 


0067 


055790W 


F 


006a" 


05579100 


C 


0071 


05580000 


T 


0072 


0558 1000 


f 


0073 


05582000 


T 


0073 


055830.00 


.T 


0074 


0556 4000 


T 


0075 


05585000 


T 


0076 


05586000 


T 


0077 


05587000 


T 


0078 


05588000 


T 


0079 


05589000 


T 


0082 


05590000 


T 


0082 


05591000 


T 


0085 


05592000 


T 


0088 


05592100 


f 


0088 


05593000 


T 


0088 


05594000 


T 


0086 


05595000 


T 


0088 


05596000 


T 


0089 


05597000 


T 


0090 


05598000 


T 


0090 


05599000 


T 


0093 


05600000 


T 


0093 


05601000 


f 


0094 


05602000 


T 


0095 


O560JOO0 


I 


009ft 


159 IS 99 LONC 


i* 


NEXT SEG 6 



BOOLEAN STREAM PROCEDURE FLAGLAST (BUFF»ERR > i 
' BEGIN 

local a; 
a*ta l ly; 

IF Se<"8" 

bfgin 
dt*buff;os 



si*eRR* 8(if sc*" ** then jump qut;si*si+utally«.t ally+i >; 
si*l_oc a; si*si+7 ; 

THEN" 
TALLY«-l; FLAGLAST*TALLY i 

46 LIT"LAST SYNTAX ERROR OCCURRED AT 
~S li'ERR I bS»8 ChR; """"DS'i'L lf""*"l 



SEQUENCE NUMBER n t 



DS*32 LIT 
nS*32 LIT 

end 
end flaglast j 



05603050 
05603060 
05 60307 
05603080 
05603081 
05603082 
05603090 
05603100 



05603010 T 0633 

05603620 J 0633 

05603030 T 0634 

05603040 T 0637 



0637 
0638 
0639 
0645 
0647 

°J* 5 ! 
0655 
0655 



integer procedure fieldcx); value x; integer x; 

fleld*lf x<10 then 1 else if x<loo then 2 else if x<1000 then 3 else if 

X<10000 THEN 4 ELSE IF X<100000 THEN 5 eL s E if X<tOOOOOO THEN 6 ELSE 7; 



FORMAT FOCH/ "NUMBER OF SYNTAX ERRORS DETECTED ■ "» I *>"."* X*# 

"NUMBER OF SEQUENCE ERRORS DETECTED =» "/!'*'»*, "'), 
F0C2(°PRT SIZE * ",I*,"; TOTAL SEGMENT SIZE » %I*# 

" words; disk size « ",i**" segs; no. prgm, segs 

foc3("estimated core storage requirement ■ ",!*** words;** 
'• compilation time • "*i*#" min# *,i*,* secs; h , 

" NO. CARDS a ",I*,","), 
F0C4("ESTlMATED CORE STORAGE REQUIREMENT ■ ",I*»" WORDS;" 

" COMPILATION TIME * %I*»" SECS; NO. CARDS * ",I*#"."), 
F0C5("NUMBER OF TSS WARNINGS DETECTED * «*#!*;*•*>"" I 



■»I 



COMMENT MAIN DRIVER FOR FOR 
RTI ♦ TiME(l); 

initialization; 

do statement until 
if not endsegtoq then if s 
thfn begin xta»*blanks; 
wrapup; 
PoStwrapupV 

IF TlMETOG THEM IF FlRSTCALL 

IF NOT FlRSTCALL THEN 

BEGIN 

WRITF(RITE#E0C1»FIEL0CERR 
5#FIFLD(SEQERRCT-1)»SEQER 
IF MaWEB AnO" NOTDCINPUTt 
WARNrOUNT) ; 
WRITFCRITE#E0C2#FIELD(PRT 

D ALOC- l7F I EID (NXAl/T L ) » NX A 
IF C^CTlMEfD'RTD/fiO > 
6<lxESTIMATE#F IELDCCl_piV 
FIELnfCARDCOUNT-i)»"CARDCO 
x64),ESTIMATEx64*FlELD(Cl 
IF ERRORCT>0 THEN IF FLAG 
ERRORBUFFt*]) ; " 
END ; 

End i n nf r bl_8 c k ; _ 
end. 



TRAN COMPILER BEGINS HEREi 



NEXT ■ 
PL INK 
FLAGC 



eof; 

NEO 
5); ENDS 



end; 



THEN DATIME; 



ORCT>»ERRORCT#IF SEQERRCT«0 THEN 99 ELSE 
RCT-t) ; 
THEN WRT TEC "RITE"* EOC3> FTrLOTHA"RN COUNT J> 

S)#PRTS#FIELD(TSEGSZ)#TSEGSZ#FIELDCDAL0C-1)# 

vim " ' ■■" " - 

59 THE 
60), CI 
UNT-T) 
),C1*F 
LASTCE 



:N WRITE(RITE#EQC3#FIELD(64XESTIMATE>» 
DIV 60,FJELD(CJ M0D^0)#C1 MOD 60, 
ELSE W R I TIT R I T E ", E C 4 > F fEI C E 3TTMA T E 
IELD(CARDC0UNT-1)*CARDC0UNT-1) ; 

:RR0RBUFF*LASTERR) THEN WRITE(RITE*15> 



NUMBER OF ERRORS DETECTFD ■ 



COMPILATION TIME ■ 1322 SECONDS. 





05603110 T 


0657 






05603120 T 


0657 






05603130 T 


0663 






05604000 T 


0675 




START OF SEGMENT ********** 


161 




05605000 T 


0675 






05606000 T 


0675 






05607000 T 


0675 






05607010 t 


0675 






05608000 T 


0675 






05608010 T 


0675 






05608020 "f 


0675 






05608030 T 


0675 






05608040 T 


0675 






05608050 T 


0675 




161 


IS 106 LONG, 


NEXT SEG 


6 




05609000 T 


0675 






05610000 t 


0675 






05611000 T 


0677 






05612000 T 


0677 






056T21M "P 


0679" 






05612200 C 


0681 






05613000 T 


0684 






05613900 T 


0685 






05614000 T 


0685 






05615000 T 


0688 






05616000 T 


06W 






05617000 P 


0689 






05618000 T 


0700 






~U53TJIW~T 


0709 






05618110 T 


0719 






05619000 T 


0723 






OT619010 T 


13TJ6 '"'" 






05619020 T 


0747 






05619030 T 


0757 






"UF6IW0 T 


-0771- - 






05619045 T 


0785 






05619050 P 


0802 
"0809 ~ 






05619106 f 






05619200 T 


0811 . 






05620000 T 


0811 




_. 


IS 815 LONG* 


NEXT SEG 


2 




05621000 T 


0089 




2 


IS 92 LONG, 


NEXT SEG 


1 


"1" 


IS 2 LONG, 


NEXT SEG 





172 


IS 69 LONG, 


NEXT SEG 






PRT SIZE ■ 530; TOTAL SEGMENT SIZE - 14251 WORDS; DISK SIZE ■ 720 SEGS; NOt PGM. SEGS « 172 



•*t * 



«■-«•■»■•. %. 



**• <*, ■ * \ 



»■ ..<*.. « 



•"«■*•» * 



ESTIMATED CORE STORAGE REQUIRED * 19040 WORDS. 
ESTIMATED AUXILIARY MEMORY REQUIRED * WORDS. 

NUMBER OE CARD-IMAGES PROCESSED * 8230, 



LABEL OOOOOOOOOLINE 00177097CC USER*SITE J COMPILE FORTRAN/DISK WITH TSPOL L IBR ARYUSPOL FILE LINE TSPOL /FORTRAN 



